






















































































MILANO 22-26 MAGGIO 1984 >. 


PERCHE UNA NUOVA DATA? 

Per una ragione più che valida, VIDEO GAMES USA entra a 
far parte di BIT USA, la prestigiosa mostra di home e personal 
computer americani. E l'edizione '84, arricchita dalla presenza 
dei videogiochi, sarà più interessante che mai! 

NON DIMENTICATE DUNQUE di visitare la sezione Videogiochi 
di BIT USA 84, dal 22 al 26 maggio, presso il Centro 
Commerciale Americano. 




CENTRO COMMERCIALE 

l 

Via Gattamelatp 5. 20149 Milano 

Tel. (02) 46.96.451 Telex 330208 USIMC- 


La mostra è realizzata in collaborazione con le riviste 

del Gruppo Editoriale Jackson. 
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Alla ricerca del regalo intelligente 

di Riccardo Paolillo 

Non è un mistero per nessuno che quella che doveva 
essere una frenetica corsa agli acquisti in occasione 
delle recenti festività natalizie, si è dimostrata in 
realtà una lenta e ponderata camminata. 

La crisi delle vendite ha colpito, secondo quanto 
riferiscono gli operatori commerciali, un po’ tutti i 
settori non ultimo, ovviamente, quello dell’elettroni- 
ca civile (TV color, HI-FI, ecc.). 

Ma in questo panorama così nero, che rispecchia un 
difficile momento economico, spicca un fatto nuovo 
e da molti inatteso che, se in termini generali non 
modifica una tendenza altamente negativa, costitui¬ 
sce senza dubbio materia per qualche osservazione: il 
boom nelle vendite di home computer. 

Questa sì che è stata una corsa all’acquisto che ha 
stupito tutti, in particolare gli stessi commercianti 
che si sono trovati in molti casi e con ovvio disappun¬ 
to, impossibilitati a far fronte alla marea di richieste 
ricevute per i più popolari personal. 

Bersagliato da una pubblicità spesso martellante, 
condizionato dalle varie guide ai regali intelligenti 
pubblicate da settimanali e quotidiani, il compratore 
italiano ha “scoperto” il calcolatore personale quello 
che “costa circa come un videogame, ma vuol mette¬ 
re, lei si mette in casa un vero computer”. 

La piccola cronaca delle vendite natalizie ci ha riser¬ 
vato episodi assolutamente inediti e per certi versi 
incredibili. Così ci sono stati negozi che hanno orga¬ 
nizzato vere e proprie liste di attesa vendendo mate¬ 
riale che avrebbero consegnato all’acquirente anche 
più di un mese dopo; negozianti a loro volta costretti 
a lunghe code presso i distributori delle varie case per 
contendersi i pochi (rispetto alla domanda) calcola¬ 
tori disponibili. 

Un mio conoscente, capitato in un negozio in cui era 
stata organizzata una catena di montaggio della ven¬ 


dita (qui i soldi, qua il calcolatore, grazie e arriveder¬ 
ci) ha avuto l’ardire di richiedere un depliant esplica¬ 
tivo di uno dei personal più diffusi: il commesso l’ha 
immediatamente liquidato dicendogli di non distrar¬ 
lo visto che stava lavorando. 

Comunque sia, tutto ciò ha contribuito a far lievitare 
il numero di utilizzatori o comunque di possessori di 
home computer. 

E proprio perché, svanita l’euforia della novità, il 
personal non diventi un semplice giocattolo che non 
diverte più, ci permettiamo di dare qualche modesto 
consiglio ai nuovi utilizzatori. 

Innanzitutto le basi: fare il programmatore è per 
molti un mestiere e come tale si impara, facilmente, 
ma non si improvvisa. Imparare a programmare in 
BASIC è semplice e alla portata di tutti, ma non si 
può pretendere di farlo dall’oggi al domani. 
Diciamo queste cose perché, a volte, pubblicità poco 
veritiere e operatori scarsamente professionali, illu¬ 
dono in modo scorretto l’ignaro acquirente. 

In ogni caso esistono parecchi testi in italiano (molti 
editi dal Gruppo Editoriale Jackson, citando a caso 
(?!!), che ha in catalogo parecchi volumi destinati 
proprio ai neofiti) disponibili presso le migliori libre¬ 
rie, come pure ci sono riviste specializzate (una è 
ovviamente Personal Software) che si dedicano in 
particolare a home e personal computer. 

Riteniamo che questi semplici strumenti, uniti ad una 
buona dose di pazienza ed interessamento personale, 
siano ampiamente sufficienti a quanti vogliono ad¬ 
dentrarsi nell’affascinante mondo dell’informatica. 
In breve tempo si sarà in grado di scrivere simpaticii 
programmi, come semplici videogame o piccole ap¬ 
plicazioni domestiche (conto bancario personale, 
agenda telefonica, ricette di cucina) che se indubbia¬ 
mente non muteranno di molto la qualità della vita 
familiare, forniranno vantaggi indiretti probabil¬ 
mente maggiori: la programmazione ci fornisce un 
metodo per pensare meglio, in modo più logico e 
razionale e questo, sicuramente, non è poco. ■ 
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A proposito di collaborazioni 

Ho 13 anni, posseggo un compu¬ 
ter Commodore CBM 64 e ho co¬ 
struito un videogame. Si tratta di 
un’astronave che deve atterrare in 3 
pianeti. Vorrei sapere da voi se lo 
posso vendere, ed eventualmente a 
chi. Lo posso vendere a voi? È un bel 
gioco, ci ho messo un anno per farlo. 
Voi prendete list del Commodore 
64? 

P.S. anche un mio amico ha in¬ 
ventato un gioco. 

Igor Schiaroli 
Roma 

Fra le tante lettere che ci propon¬ 
gono offerte di collaborazione abbia¬ 
mo scelto questa perché è sicuramen¬ 
te la più carina e spontanea. Rispon¬ 
diamo al simpatico Igor cercando di 
chiarire, anche a benefìcio dei molti 
altri che ci hanno scritto, la nostra 
posizione a proposito di questo argo¬ 
mento. 

Personal Software, come è noto, si 
basa principalmente sui contributi dei 
lettori e quindi i vostri lavori sono 
graditissimi e attentamente valutati. 

Tenete conto, però, che noi non ac¬ 
quistiamo software dai lettori, ma ri¬ 
conosciamo un compenso (intorno al¬ 
le 50.000 lire nette per ogni pagina di 
rivista) per tutti i lavori pubblicati. 

In ogni caso ci impegnamo a non 
sfruttare commercialmente o divul¬ 
gare il materiale non ritenuto idoneo 
per la pubblicazione. 

In questi giorni stiamo continuan¬ 
do a spedire la Guida agli autori (è un 
fascicoletto di 16 pagine) a tutti i let¬ 
tori che l’hanno richiesto; dovete ave¬ 
re un po’ di pazienza perché te richie¬ 
ste sono state numerosissime. A que¬ 
sto proposito rinnoviamo l’invito a ri¬ 
chiedere la guida solo se veramente 
interessati a collaborare, per poter 
effettuare le spedizioni in tempi brevi. 

Infine un consiglio sottovoce: gene¬ 
ra/mente gli articoli dattiloscritti in 
buon italiano e con i programmi me¬ 
morizzati su cassetta o dischetto han¬ 
no la precedenza... 
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Didattica e computer 

Sono un ragazzo appassionato di 
computer ed assiduo lettore della 
vostra rivista (tanto appassionato 
che mi sono abbonato per non per¬ 
dere un numero) che trovo interes¬ 
sante ed utile. 

Io posseggo un VIC 20 non espan¬ 
so, mi diverto a fare giochi o pro¬ 
grammi di altra utilità, ed ogni tanto 
mi dedico anche a conversioni; da 
un po’ di tempo mi sono dedicato a 
problemi matematici e scientifici, 
ma non ho potuto trovare finora un 
programma che faccia operazioni e 
successivi grafici sui numeri com¬ 
plessi. Ciò mi serve perché sono uno 
studente, frequento il 5° anno di 
Elettronica Industriale a Messina, a 
scuola ci insegnano i linguaggi BA¬ 
SIC e FORTRAN, e mi è quasi indi¬ 
spensabile per la risoluzione imme¬ 
diata di esercizi o la costruzione di 
grafici di funzioni complesse. 

Sarei quindi veramente lieto di 
trovare questo programma su un 
prossimo numero di Personal Soft¬ 
ware. 

Domenico Bonaccorso 
Messina 

Già da un po’ di tempo stiamo pen¬ 
sando di pubblicare alcuni articoli che 
sviluppino argomenti connessi ad un 
utilizzo nella didattica del personal. 
Ci ripromettiamo di pubblicare anche 
programmi inerenti applicazioni ma¬ 
tematiche e magari anche sugli argo¬ 
menti specifici da lei proposti. 

In ogni caso invitiamo i lettori a 
contribuire sia esponendo eventuali 
richieste, sia mediante l’invio di arti¬ 
coli sull’argomento. Saranno partico¬ 
larmente graditi i consigli e gli inter¬ 
venti degli insegnanti che hanno in¬ 
trodotto (o pensano di farlo) il calco¬ 
latore in classe. 


Dal VIC 20 al C64 

Possiedo da qualche tempo un 
Commodore 64 e precedentemente 


ho avuto per circa 6/7 mesi un VIC 

20 . 

Ho ancora il registratore che ave¬ 
vo acquistato per il VIC ed ultima¬ 
mente ho acquistato il floppy singo¬ 
lo 1541 per il 64. Vorrei sapere (mi 
hanno assicurato che è possibile) co¬ 
me posso trasferire,* anche solo per il 
LIST, un programma registrato su 
cassetta con il VIC, dal nastro alla 
memoria del 64. Ciò mi permette¬ 
rebbe di recuperare almeno parte 
dei molti programmi che ho in ver¬ 
sione VIC 20. 

Mi piacerebbe anche che pubbli¬ 
caste uno o più articoli sulla gestio¬ 
ne dei file con il 64 ed il disco. 

Inoltre perché non pubblicate 
qualcosa sulle differenze esistenti 
tra i vari BASIC Commodore, dal 
VIC in su? 

Ed ancora, non potreste aggiun¬ 
gere ai listati VIC e CBM le modifi¬ 
che necessarie a farli girare sul 64 (a 
parte la differente tabulazione e le 
ovvietà...)? 

Forse le mie richieste sono trop¬ 
pe, ma possono interessare molti 
possessori di 64 arrivati a questa 
macchina dopo il VIC. E forse que¬ 
sta può essere una forma (como¬ 
da..!) di collaborazione alla rivista. 

Alex Conte 
Torino 

Il suo problema è comune a molti 
altri utenti di VIC 20 convertiti al C 
64. Recentemente abbiamo comincia¬ 
to ad occuparci delta compatibilità 
tra le due macchine facendo delle pro¬ 
ve in Redazione. 

Purtroppo, nonostante venga usato 
lo stesso registratore e le routine di 
I/O siano simili, non esiste compati¬ 
bilità diretta in quanto i programmi 
vengono caricati in aree diverse di 
memoria e quindi variano anche i 
puntatori alle variabili. 

Per sfruttare in modo automatico i 
programmi scritti per VIC 20 occor¬ 
rerebbe realizzare un rilocatore di 
programmi BASIC che trasferisca il 
programma e i relativi puntatori nelle 
locazioni di memoria previste da! si¬ 
stema operativo del C 64. 




Dato che questo programma, ov¬ 
viamente in linguaggio macchina, non 
è semplicissimo da realizzare, si pre¬ 
ferisce normalmente ribattere il lista¬ 
to. Tra l’altro, agendo in modo ma¬ 
nuale, si può modificare direttamente 
per quanto riguarda le parti relative 
alla visualizzazione di caratteri, alla 
! grafica e al suono, cosa che risulte- 
• rebbe ovviamente impossibile effet¬ 
tuare in m r do automatico. 

Comunque di questo argomento ci 
ripromettiamo di parlare in un artico¬ 
lo di imminente pubblicazione. Presto 
parleremo anche della gestione del 
disco, dato che questa periferica si 
segnala per un rapporto qualità prez¬ 
zo veramente notevole ed è facile pre¬ 
vederne una veloce diffusione. 

A proposito di conversioni, infine, 
abbiamo verificato che esiste compa¬ 
tibilità tra il C 64 e i vecchi PET e 
CBM. 
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Siamo la più importante 
Casa Editrice di libri, 
enciclopedie e riviste di 
Elettronica e di Informatica. 


CERCHIAMO 


TRADUTTORI 


Per seguire il costante 
sviluppo del settore, 
abbiamo bisogno di 
traduttori scientifici 
disposti a un rapporto di 
consulenza e di 
collaborazione. 


REQUISITI NECESSARI: 

• perfetta conoscenza 
dell'inglese tecnico-scientifico 
(segnalare altre lingue 
conosciute e grado). 

• capacità di tradurre in un 
italiano corretto 

• disponibilità personale di un 
Personal Computer 

• esperienza di programmazione 

• residenza, preferibilmente, a 
Milano o nell’hinterland 


SPECIALISTI 

Scrivere a: Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 


Specificare: 



linguaggi di programmazione 
conosciuti 
tipo di personal 
posseduto 


• esperienze maturate, 
dove, da quanto 

• età, titolo di studio, professione 
attuale, disponibilità 


GRUPPO 

EDITORIALE 

JACKSON 


Tutti i candidati verranno sottoposti a un test di selezione preliminare 










Linguaggio macchina 
per Sinclair- 


— Parte seconda — 


Dove e perché 
sistemare i codici: 
una routine 
per Spectrum e ZX81 
e un po’ di teoria 
non fa mai male 


di Bruno Del Medico 

L a prima parte di questo arti¬ 
colo, pubblicata sul numero 
12 di Personal Software, era 
dedicata esclusivamente allo ZX81. 
La grande diffusione raggiunta dal¬ 
lo Spectrum ci ha indotto a estende¬ 
re la trattazione anche a questo per¬ 
sonal. 

In questo numero riprenderemo 
la discussione dei metodi di imma¬ 
gazzinamento delle routine LM, con 
particolare riguardo allo Spectrum. 

Successivamente il discorso 
Spectrum-ZX81 potrà essere unifi¬ 
cato perché entrambi i sistemi usano 
lo stesso microprocessore, lo Z80. 

I possessori di ZX81 scuseranno 
qualche inevitabile ripetizione. 

Consiglio comunque di non tras¬ 
curare la parte finale, importantissi¬ 
ma, dedicata al concetto di CARRY 
o riporto. 


Il programma PROVA LM/1 

Inserite il programma BASIC del 
listato 1 (listato 2 per lo ZX81), ma 
aspettate a farlo girare. 

Questo programma si può divide¬ 
re in 3 parti: 

a) linee 10-30, 

b) linea 40, 

c) linee 50-70. 


La prima routine è un ciclo FOR 
K che va da 1 a 5. Ogni volta che il 
ciclo viene eseguito il computer scri¬ 
ve qualcosa nella posizione K, K. 

In effetti, nel caso dell ZX81, scri¬ 
ve un carattere alfabetico scelto a 
caso tra i 26 disponibili, perché l’e¬ 
spressione: 

INT (RND ★ 25) + 38 


restituisce un numero a caso com¬ 
preso tra 38 e 63, e la funzione 
CHR$ usata in relazione ai numeri 
da 38 a 63 dà sempre un carattere 
alfabetico. 

Al termine di questa prima routi¬ 
ne l’output che appare sullo scher¬ 
mo è simile a quello illustrato nella 
figura 1. 

Per lo Spectrum appariranno dei 
quadratini colorati, al posto dei ca¬ 
ratteri alfabetici. 

La linea 40 ferma il programma 
per due secondi, per consentire di 
oservare il primo quadro video. 

La terza routine (linee 50-70) è 
simile alla prima; il computer esegue 
un ciclo che va da 1 a 5, e ogni volta 
scrive qualche cosa nella posizione 
I, K. 

Anche chi non ha seguito la prima 
parte dell’articolo può facilmente 
intuire che USR 32000 e USR 17200 
rappresentano un numero, una let¬ 
tera o una stringa, qualcosa insom¬ 
ma che possa essere stampato sullo 
schermo. 

USR 32000 è sempre un numero. È 
il risultato dei calcoli eseguiti in una 
routine memorizzata a partire dal¬ 
l’indirizzo 32000. 

La routine potrebbe essere me¬ 
morizzata a partire da qualsiasi al¬ 
tro indirizzo che non cambierebbe 
niente, per esempio per lo ZX81 
usiamo: USR 17200. 

Volendo stabilire una analogia 
con il BASIC, l’istruzione PRINT 


1 

REM PROVA LM/1 - 

SPECTRUM 

10 

FQR K*1 TO 5 


20 

LET R«INX ( RND *8) 

. PRINT RI 


INK Rj 


30 

NEXT K 


4-0 

PAUSE 100 


50 

POR K=i TO 6 


60 

PRINT RT K,K,USR 

32000 

70 

NEXT K 


1 

REM PROVA LM/1 - 

2X©1 

10 

FOR K=»l TO 5 


20 

PRINT RT K,K,CHR* (INT (RND 

*2S1 

*33 ) 


30 

NEXT K 


40 

PAUSE 100 


50 

FOR K =1 TO 6 

17200 

60 

PRINT RT K,K,USR 

70 

NEXT K 



Listati 1 e 2. Esempio di programma 
che utilizza una routine LM. 


i rem soubroutine brsic 

EOUIURLENTE OLLA 
ROUTINE LM CfìRICRTfl 
SULLO SPECTRUM 

32000 LET HL»PEEK 23664*256 
PEEK 23885 
320O3 LET BC-6144- 
32006 LET ML *HL +BC 
32008 LET CbPEEK ML 
39030 RETURN 


1 REM 5DUBROUTINE BRSIC 
EOUIORLENTE RLLR 
ROUTINE LM CRRICRTA 
SULLO ZX81 

17200 LET ML «PEEK 16396*256 » 
PEEK 18300 
17203 LET C —PEEK ML 
17206 RETURN 


Listati 3 e 4 .Le routine BASIC di 
questi listati svolgono lo stesso com¬ 
pito della routine LM descritta nel¬ 
l’articolo, occupando circa 70 byte 
nel caso dello ZX81 e oltre 100 nel 
caso dello Spectrum. Invece la routi¬ 
ne LM equivalente (tabella 1) occupa 
7 byte nel caso dello ZX81 eli nel 
caso dello Spectrum. 


USR 17200 può essere considerata 
equivalente a: 

GOSUB 17200 

PRINT (il risultato della elabo¬ 
razione avvenuta nella 
subroutine 17200) 

Naturalmente però 17200 è riferi¬ 
to ad un indirizzo della memoria 
RAM e non ad una linea di pro¬ 
gramma. 

Nello ZX81 senza espansione di 
memoria la RAM va dall’indirizzo 
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16384 al 17408. Scrivendo la routine 
dall’indirizzo 17200 in poi si viene a 
trovare abbastanza lontana dal pro¬ 
gramma BASIC, precauzione op¬ 
portuna -per evitare sovrapposizio¬ 
ni. Analogamente nello Spectrum 
16 Kbyte, la memoria RAM va dal¬ 
l’indirizzo 16384 all’indirizzo 32599; 
scegliamo l’indirizzo 32000 perché è 
abbastanza alto (ricordiamoci CLE- 
AR 31999, vedi dopo). 

Tornando al programma, manca 
ancora la routine in linguaggio mac¬ 
china, infatti agli indirizzi destinati 
a tale routine non c’è niente. Per 
verificarlo scrivete: 

ZX81 Spectrum 

PRINT PEEK PRINT PEEK 
17200 32000 

l’istruzione PEEK restituisce il con¬ 
tenuto dell’indirizzo indicato. Pre¬ 
mendo NEWLINE o ENTER sullo 
schermo appare: 0. 

Continuando con gli indirizzi suc¬ 
cessivi si ottiene sempre 0, perché 
quella parte di memoria RAM non è 
occupata da niente; possiamo quin¬ 
di sistemarci la nostra routine LM. 
Per il momento ci basta sapere che, è 
composta da una serie di numeri de¬ 
cimali. Per lo Spectrum: 

42, 132, 92, 1, 0, 24, 9, 78, 6, 0, 201 
Per lo ZX81: 

42, 14, 64, 78, 6, 0, 201 

Il metodo di più immediata com¬ 
prensione per immagazzinare la 
routine è il seguente: 

ZX81 Spectrum 

POKE 17200, 42 POKE 32000, 42 
POKE 17201, 14 POKE 32001, 132 

POKE 17206, 201POKE 32010, 201 

Battendo queste istruzioni si cari¬ 
ca in memoria la routine LM, che 
per lo Spectrum occupa gli indirizzi 


dal 32000 al 32010. Poiché ogni indi¬ 
rizzo è un byte, la routine relativa 
allo Spectrum occupa il byte, quella 
relativa allo ZX81 ne occupa 7. 

Ora che anche la routine LM è 
sistemata in memoria, date il RUN 
per verificare l’effetto della linea 60 
(listati 1 e 2). 

Sullo schermo appare un output 
simile a quello della figura 1. 

Solo ZX81: dopo una pausa di due 
secondi, appare un nuovo output si¬ 
mile a quello della figura 2. 

I numeri del secondo output rap¬ 
presentano i codici dei caratteri 
scritti nel primo. Infatti: 

CODE C = 40 
CODE Z = 63 e così via. 

II computer ha percorso un certo 
tracciato, scrivendo sullo schermo 
una serie di lettere dell’alfabeto. 
Successivamente ha ripercorso lo 
stesso tracciato, e per ogni punto: 

a) ha letto il carattere scritto in quel 
punto; 

b) ha calcolato il codice del caratte¬ 
re; 

c) ha scritto nello stesso punto il 
codice calcolato. 

Solo Spectrum: ognuno dei nume¬ 
ri che appaiono nel secondo output 
rappresenta il valore della funzione 
ATTR riferito a quel punto dello 
schermo. 

Il computer ha percorso un certo 
tracciato disegnando cinque qua¬ 
dratini colorati. Successivamente lo 
ha ripercorso e per ogni punto: 

a) ha riconosciuto il colore disegna¬ 
to in quel punto; 

b) ha calcolato il relativo valore del¬ 
la funzione ATTR; 

c) ha scritto il valore di ATTR nello 
stesso punto. 

In entrambi i casi (ZX81 e Spec¬ 
trum) le operazioni a e b sono state 
eseguite dalla routine LM. 

Volendo continuare l’analogia 


2 

F 

H 

d 


Parte alta dello scherio e pri>a 
visua l ìzzazìone fornita dal pro- 
9 r a» m a PROUR LM/1 


Figura 1. ZX81: Prima visualizzazio¬ 
ne offerta dal programma PROVA 
LM/1. 


Spectrum: 1 caratteri diventano dei 
quadratini colorati. 



Figura 2. Seconda visualizzazione of¬ 
ferta dal programma PROVA LM/1. 
La routine LM legge i caratteri pre¬ 
senti sul video e scrive al loro posto il 
codice equivalente. 

con il BASIC possiamo dire che la 
linea 60 e la routine LM si compor¬ 
tano come illustrato nella figura 3. 
Volendo ottenere un risultato ugua¬ 
le con una subroutine in BASIC si 
potrebbe usare quella illustrate nei 
listati 3 (Spectrum) e 4 (ZX81). 

Solo ZX81-. i byte 16398 e 16399 
contengono un indirizzo di memo¬ 
ria che viene caricato nella variabile 
numerica HL. Con l’istruzione PE¬ 
EK HL si legge il contenuto di que¬ 
sto indirizzo. Esso equivale al nume¬ 
ro di codice del carattere presente 
nel punto dello schermo che sta per 
essere scritto, cioè al codice della 
posizione di stampa. 

Solo Spectrum-. i byte 23684 e 
23685 contengono un indirizzo di 
memoria che viene caricato in HL. 
Si aggiunge ad HL il valore 6144, 
perché l’indirizzo che vogliamo leg¬ 
gere si trova 6144 byte più in alto 
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nella memoria. Con l’istruzione 
LET C = PEEK HL si legge il conte¬ 
nuto di questo indirizzo: esso equi¬ 
vale al valore degli ATTRIBUTI re¬ 
lativi al punto dello schermo che sta 
per essere scritto. Il valore degli at¬ 
tributi varia a seconda della diversa 
colorazione di quel punto. 

Occorre notare che mentre la rou¬ 
tine LM è lunga una decina di byte i 
listati 3 e 4 usano una quantità di 
memoria enormemente superiore 
per svolgere il medesimo compito. 
Già la prima linea ne occupa molti 
di più. 

Di tutti i concetti esposti fino qui, 
è necessario avere ben compreso al¬ 
meno questi: 

— con l’istruzione POKE possiamo 
scrivere delle istruzioni (sotto forma 
di numeri decimali) in determinati 
indirizzi della memoria RAM, par¬ 
tendo da un indirizzo qualsiasi pur¬ 
ché separato dall’area del program¬ 
ma (per evitare confusioni); 

— con l’istruzione PEEK possiamo 
rileggere le istruzioni scritte; 

— con l’istruzione USR le mandia¬ 
mo in esecuzione. 

Facciamo ora alcune considera¬ 
zioni sul programma PROVA 
LM/1 (listati 1 e 2) appena speri¬ 
mentato: 

— usando il RUN la routine LM 
non viene cancellata; 

— usando il LIST non è possibile 
vedere la routine LM; l’unico meto¬ 
do possibile per listarla consiste in 
una noiosa ripetizione di istruzioni 
PEEK; 

— la routine LM non viene registra¬ 
ta su nastro con il SAVE. 

Registrate il programma PROVA 
LM/1 con la routine LM caricata. 

Riavvolgete poi il nastro ed ese¬ 
guite il LOAD. Noterete che la rou¬ 
tine LM è ancora presente e il pro¬ 
gramma gira. Si tratta però di una 
illusione: la routine è stata semplice- 
mente ignorata sia in fase di SAVE 
che in fase di LOAD. Spegnendo il 
computer e riprovando il LOAD, si 
perde la routine LM. 

Ricapitolando: possiamo siste¬ 
mare una routine LM in qualsiasi 
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parte alta della memoria RAM, ma 
con questo metodo la routine non è 
né listabile né registrabile su nastro 
(sullo Spectrum c’è un’altra possibi¬ 
lità, vedi dopo). 

Immagazzinamento della routine LM 
nella prima linea di programma 

C’è un altro metodo che consente 
di immagazzinare una routine LM 
in una posizione diversa della me¬ 
moria RAM, in modo tale che sia 
possibile il SAVE insieme al pro¬ 
gramma BASIC ed una certa forma 
di LIST (non sempre affidabile). 

Nel numero 12 di Personal Soft¬ 
ware abbiamo visto che con lo ZX81 
si può scrivere all’inizio del pro¬ 
gramma BASIC un pezzo di pro¬ 
gramma fasullo, sul quale poi so¬ 
vrapponiamo i caratteri della routi¬ 
ne LM. Il programma BASIC utile, 
viene scritto in coda a questa prima 
parte. 

Ovviamente, se la nostra routine 
LM deve essere composta da 7 byte, 
allora il programma BASIC inutile 
deve essere composto anch’esso da 
ALMENO 7 byte: se poi sono 8 o 10 
si spreca soltanto qualche byte di 
memoria. 

Un pezzo di programma BASIC 
inutile composto da 7 byte è: 

1 REM 0000000 

Se la routine fosse stata composta 
da 15 byte, avremmo usato una linea 
REM composta da 15 zeri. Però è 
difficile e noioso contare 15 zeri. Al¬ 
lora avremmo potuto scrivere: 

1 REM 123456789012345 

In effetti non ha importanza qua¬ 
le tipo di carattere sia contenuto nel¬ 
la linea REM: è importante solo che 
la quantità di caratteri sia ALME¬ 
NO PARI alla lunghezza in byte del¬ 
la routine LM. 

Anche con lo Spectrum la routine 
LM, può essere sistemata nella parte 
bassa della memoria, compresa tra 
l’indirizzo 16384 e l’ultimo byte oc¬ 
cupato; in questo modo viene me¬ 
morizzata automaticamente insie¬ 
me al programma BASIC. (Vedre¬ 


mo poi come nello Spectrum sia 
possibile e preferibile sistemare la 
routine nella parte alta). 

Alcune aree dall’indirizzo 16384 
in poi, pur facendo parte della me¬ 
moria RAM, non possono essere 
utilizzate perché sono destinate a 
contenere altre informazioni. In 
particolare non possono essere usati 
gli indirizzi dal 16384 al 23734. 

Anche una certa quantità di indi¬ 
rizzi successiva al 23734 non può 
essere usata: l’area del programma 
comincia subito dopo questa certa 
quantità di locazioni, che purtroppo 
è variabile. 

Quindi il primo byte dell’area del 
programma non ha un indirizzo fis¬ 
so di partenza nello Spectrum. 

L’indirizzo può variare, ma il 
computer lo conserva sempre ag¬ 
giornato nella sua memoria, e si ot¬ 
tiene con questa istruzione: 

PRINT PEEK 23635 + 256 ★ 
PEEK 23636 

Se volessimo immagazzinare la 
routine nei primi byte della memo¬ 
ria RAM riservata al programma, 
come con lo ZX81, dovremmo scri¬ 
vere: 

POKE (PEEK 23635 + 256 ★ PEEK 
23636), 42 

POKE (PEEK 23635 + 256 ★ PEEK 
23636) + 1,92 

POKE (PEEK 23635 + 256 ★ PEEK 
23636) + 10, 201 

Però abbiamo già visto nel caso 
dello ZX81 che non è possibile siste¬ 
mare così la routine LM, perché i 
numeri scritti con l’istruzione PO¬ 
KE andrebbero a sovrapporsi alle 
prime istruzioni del programma 
BASIC cancellandole. 

Ricorriamo anche nel caso dello 
Spectrum alla soluzione prospettata 
per lo ZX81: scriviamo un pezzo di 
programma BASIC inutile, che va¬ 
da ad occupare le prime locazioni di 
memoria nell’area del programma. 
In pratica basta scrivere la linea: 
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1 REM 12345678901 
seguita dal programma, con linee 
numerate da 2 in poi. 

Gli indirizzi occupati dai caratteri 
della REM della linea 1 sono desti¬ 
nati alle istruzioni della routine LM. 

Quindi la REM deve contenere 
almeno tanti caratteri quanti sono i 
byte della routine LM. 

Il calcolo relativo ai byte occupati 
dalla linea 1 può essere effettuato 
con l’aiuto della tabella 1 (pubblica¬ 
ta nella prima parte, Personal Soft¬ 
ware n. 12) che è valida anche per lo 
Spectrum. La linea contiene 11 ca¬ 
ratteri e occupa 17 byte: undici per i 
caratteri, 5 per la linea e uno per il 
REM. 

Volendo inserire la routine LM 
nella linea 1 a partire dal primo ca¬ 
rattere della REM occorre usare co¬ 
me indirizzo di partenza: 


PEEK 23635 + 256 ★ 

PEEK 23636 + 5 

A questo punto è tutto pronto per 
la fase sperimentale. 

Inserite il programma PROVA 
LM/2 dei listati 5 (Spectrum) e 6 
(ZX81). 

Rispetto al precedente PROVA 
LM/1, questo programma contiene 
due differenze: 

— è presente la linea 1 REM 
1234567; 

— la linea 60 contiene l’istruzione 
USR 16514 anziché USR 17200. 
Analoghe variazioni si verificano 
per lo Spectrum. 

Ora dobbiamo immagazzinare la 
routine LM negli indirizzi prescelti. 
Armiamoci di molta pazienza e scri¬ 
viamo le istruzioni della Tabella 1. 
Terminato il caricamento è possibile 
fare una verifica scrivendo, nel caso 
dello Spectrum: 

PRINT PEEK b ENTER. 

deve apparire: 
42 

PRINT PEEK b+1 ENTER. 

deve apparire: 
132 

e così via. 


Verifichiamo se il nostro program¬ 
ma gira, dando il RUN. Potete nota¬ 
re che il RUN non cancella la routi¬ 
ne LM. 

Volevamo che la routine fosse an¬ 
che in qualche modo listabile, per 
non dover ricorrere a noiosissime 
PEEK. Ebbene, la routine è listata 
nella linea 1, che appare stravolta 
rispetto a come l’avevamo scritta. Si 
tratta però, come vedremo più avan¬ 
ti, di un LIST molto parziale. Infatti 
solo con ZX81 è completo mentre 
con lo Spectrum presenta diverse 
anomalie. 

Esaminiamo la linea 1 che appare 
con lo ZX81. Con l’aiuto del ma¬ 
nuale è possibile ricavare i codici 
contenuti in questa linea, che sono 
riportati anche nella tabella 2. 

Il primo carattere della linea 1 è E. 
Il codice di E è 42, ed infatti aveva¬ 
mo scritto nella locazione 16514 il 
numero 42. 

E logico che ora listando la linea 1 
il computer scriva il carattere equi¬ 
valente a 42, cioè E. 

La colonna più a destra della ta¬ 
bella 2 (equivalente esadecimale) 
contiene il numero 42 scritto in esa¬ 
decimale. (alcune nozioni sui nume¬ 
ri esadecimali sono state trattate nel 
numero 12). 

I vantaggi che si ottengono usan¬ 
do la numerazione esadecimale, so¬ 
no diversi. Si noterà per esempio che 
i numeri decimali della seconda co¬ 
lonna sono composti da una, due o 
anche tre cifre; per esempio 6, 42, 
201. Invece tutti i numeri esadeci¬ 
mali della terza colonna sono com- 




L£T fc= PhEK 
33636 + 6 

FJK2 b,43 
POKC b+1,133 
POKf b+2,92 
POK£ b +3, 1 
POK5 b+4-,0 
POK'J 

b+6,9 
b+7,78 

_ + 8,6 

PDK£ b+3,0 
POK£ b +10,S©1 


3635+256*PE5K 


POKE 

PQK£ 

POKS 


2X31 


POKiE 16514-, 43 
POKS 16515,14- 
POKS 16516,64. 
POKS 16517,76 
PGKC 1651©,6 
POK£ 16519,0 
POKS 16530.301 


Tabella 1. Procedura di caricamento 
della routine LM relativa ai listati I e 


2 . 



Carature 

della 


Equiva lente 


Codi ce 


5 

43 

3» 

(due punì 

i .1 14 

06 

^ND 

64 

40 

? 

76 

16 


6 

06 

(SP32JO) 

0 

00 

tpn 

201 

C9 


Tabella 2. Routine LM usala con i 
listati 1 e 2. La colonna a sinistra 
contiene i caratteri che compaiono 
nella linea l dopo il LIST. 


posti da due caratteri. 

La terza colonna rappresenta una 
routine in linguaggio macchina vero 
e proprio. Un programma LM scrit¬ 
to in numeri esadecimali si chiama 
CODICE OGGETTO. Lo stesso 
programma può anche essere scritto 
sotto forma di istruzioni mnemoni¬ 
che, come è illustrato nella tabella 3. 


Codice oggetto 
o EXCODES 
o programma LM 

Codice mnemonico 
o OPCODESo 
programma Assembly 

Equivalente 

decimale 

Equivalente 

BASIC 

2A 

LD HL, (400E) 

42 

LET HL = PEEK 16398 

0E 


14 

+ 256 * PEEK 16399 

40 


64 


4E 

LD C, (HL) 

78 

LET C = PEEK HL 

06 

LD B, 0 

6 

LET B = 0 

00 


0 


C9 

RET 

201 

RETURN 


Tabella 3. Vengono illustrate in questa tabella le istruzioni Assembly equiva¬ 
lenti alla routine LM usata nei programmi 1 e 2, e l'istruzione BASIC 
equivalenti. 
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Le equivalenze BASIC di questa ta¬ 
bella sono semplicemente esplicati¬ 
ve e non producono individualmen¬ 
te il medesimo effetto. 

L’istruzione LD HL (400 E) viene 
codificata in tre byte esadecimali: 
2A 4E 00, invece l’istruzione LD C 
(HL) richiede un solo byte: 4E. Per il 
momento questo non importa, an¬ 
che il BASIC richiede 7 byte per 
immagazzinare il numero 1, ed un 
solo byte per immagazzinare l’istru¬ 
zione PRINT, eppure non ci accor¬ 
giamo neppure di ciò. 


Caricamento automatico 
di una routine LM 

Ora facciamo una prova; verifi¬ 
chiamo se la sequenza di codici esa¬ 
decimali dello Spectrum: 

2A, 84, 5C, 01,00,18,09,4E, 06,00, C9 
equivale veramente a: 

42, 132, 92, I, 0, 24, 9, 78, 6, 0, 201 
e analoga verifica faremo per lo 
ZX81. 

Ovviamente non possiamo cari¬ 
care i numeri esadecimali con istru¬ 
zioni del tipo: 

POKE 16514, 2a 

perché la sintassi dell’istruzione PO¬ 
KE richiede che essa sia seguita da 
un numero decimale. 

Allora dobbiamo utilizzare un 
programma che trasformi la sequen¬ 
za di numeri esadecimali nei corri¬ 
spondenti decimali, e li sistemi in 
memoria a partire dalla locazione 
prescelta in poi. Chiameremo que¬ 
sto programma (listati 7 e 8) LOA- 
DER/1. 

Abbiamo inserito ancora una li¬ 
nea 1 REM per i motivi spiegati in 
precedenza. Il programma LOA- 
DER/1 vero e proprio va dalla linea 
10 alla 70. 

Solo ZX81: questo programma 
prende due alla volta i caratteri della 
stringa H$, ne calcola l’equivalente 
decimale e lo scrive negli indirizzi 
del 16514 al 16520. Quando anche 
gli ultimi due caratteri di H$ sono 
stati trattati, il programma termina 
(linea 40). 


1 

REM 133456750^-1 



10 

FOR K=1 TO 5 




2C 

LET R= R iRNt>*S) : 

PRINT 

HT r. 

K ; 

XMX R,; ''ir 




30 

NEXT K 




4-0 

PPL'SE 100 




50 

POR K = 1 TO 5 




6© 

PRINT *7 «,K 

GSR 

; PEEK 

236T 




70 

NEXT K 




©0 

REM 





PROUP L.M/2 

- SPECTRUM 


1 

REM 1234-567 




10 

POR Kal TO 5 




20 

PRINT RT K,K ; 

CHR$ 

t-TNT 

iRND 

*25)+33) 




30 

N^XT K 




4-0 

PROSE 100 




50 

FOR K=1 TO 5 




60 

PRINT RT K,K, 

USR 

16514 


70 

NEXT K 




©0 

REM 





PROUR LM/2 - 

ZX81 


1 _ 


Listati 5 e 6 .La routine LM può veni¬ 
re immagazzinata nella prima linea di 
programma. In tal caso è possibile 
registrarla su nastro. 


1 R=M 

aàlskfs 2363S*aS6,PEEK 

"°* "■ -s c-, -a 

/ 4e" , "06- , "00’', "C9" 

30 READ Z* 

DB Z*="s" THEN ST 

4.0 LcT LlNOsCDDE 2S-4B - (39 ANO 
Z$ > •£'• ) 

4-5 LcT DUE=CODE Z$ (2) -48 - (39 P 
ND Z$ (5) >"£" ) 

50 PJKE TND , UNO H&+DUE 
50 LET IND=IND+1 
70 GO TO 30 


1 REM 1234-567 
10 LET IND=16514 
20 LET H$ = ,, 2n0£4.®4.E06O0C'9” 

30 POKE IND,16*CODE H*+CODE H* 
(2) -4.7-5 

4-0 IF LEN H$=2 THEN STOP 
50 LET IND^IND+1 
80 LET H$eH| 13 TO > 

70 GOTO 30 
?999- • REM 




Listati 7 e 8. Questi programmi con¬ 
sentono di caricare automaticamente 
in memoria una routine LM. Nel caso 
dello ZX81 la routine viene conserva¬ 
ta nella variabile stringa H%. Nel caso 
dello Spectrum in una linea DATA. 
Occorre notare che i listati relativi 


allo Spectrum sono scritti in caratteri 
maiuscoli (basta premere CAPS 
SHIFT e 2 all’accensione) per ottene¬ 
re un listato più leggibile. Invece i 
codici esadecimali della linea DA TA e 
tutti quelli che useremo nel seguito 
per lo Spectrum, devono essere scritti 
in caratteri minuscoli. Se fossero 
maiuscoli la routine di caricamento 


dovrebbe essere modificata. 


Solo Spectrum: il programma leg¬ 
ge i dati contenuti nella linea DA¬ 
TA, e li sistema negli indirizzi da 
IND (linea 10) in poi. Il programma 
termina quando il dato letto è ugua¬ 
le a “s”. 

Dopo il RUN è possibile verifica- 
re che: 

a) dando il LIST la linea 1 appare 
così modificata nello Spectrum: 

1 REM ★ \ ???Nsedici spazi? < > 

Nota: questa linea è di difficile com¬ 
posizione tipografica e può essere 
ottenuta con ZX Printer. E registra¬ 
ta con il nome “PASSAGGIO 1”; 

b) con una serie di PRINT PEEK, 
dal valore iniziale di IND in poi, 
otteniamo la ben nota serie di nume¬ 
ri: 

Spectrum: 42, 132,92, 1,0,24,9,78, 

6 , 0 , 201 


oppure: 

ZX81: 42, 14, 64, 78, 6, 0, 201 

Ora possiamo essere convinti di 
due cose: 

a) il codice oggetto contenuto nella 
stringa H$ o nella linea DATA equi¬ 
vale esattamente alla routine LM 
scritta in precedenza con i POKE 
seguiti da numeri decimali; 

b) il programma LOADER/1 ci ri¬ 
sparmia la scrittura di diverse noio¬ 
se POKE. 

Il programma LOADER/1 ha 
svolto il suo compito, che consisteva 
nel caricare la routine LM negli indi¬ 
rizzi prescelti, non ci serve più, e 
decidiamo quindi di cancellarlo per 
recuperare spazio in memoria. At¬ 
tenzione, non bisogna cancellare la 
linea 1, poiché con essa si cancelle¬ 
rebbe anche la routine LM ivi conte¬ 
nuta. 

Quindi per cancellare LOA¬ 
DER/1 non bisogna usare il NEW, 
ma ogni linea va cancellata così: 

10 ENTER (o NEWLINE) 

20 ENTER (o NEWLINE) ... e così 
via. 
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Quando sullo schermo rimane so¬ 
lo la linea 1 è disponibile introdurre 
il programma utilizzatore della rou¬ 
tine LM. 

Per provare battete il programma 
PROVA LM/2 (listati 5 e 6) dalla 
linea 10 alla linea 70. La linea 1 va 
ovviamente omessa perché dobbia¬ 
mo conservare quella ottenuta con 
LOADER/1. 

Dando il RUN la routine LM non 
viene cancellata. Usando il SAVE la 
routine viene registrata insieme al 
programma. 


I programmi LOADER/2 
e LOADER/3 

Adesso caricate il programma 
LOADER/2 dei listati 10 e 11, date 
il RUN e per lo Spectrum battete la 
routine LM della tabella 4, per lo 
ZX81 quella della tabella 5. Termi¬ 
nato il caricamento premete F, poi: 
GOTO 100. ' 

Sullo schermo appare: 25. 

Solo Spectrum: questa routine: 

— scrive il numero 10 nell’indirizzo 
IND-3; 

— scrive il numero 15 nell’indirizzo 
IND-2; 

— somma i due numeri; 

— mette il risultato nell’indirizzo 
IND-1. 

Perché IND-3? Perché nel listato 
di LOADER/2, alla linea 10, B è 
uguale a: 

PEEK 23635 + 256 ★ 

PEEK 23636 + 8 

Notate il + 8, e notate che alla 
linea 15, IND diventa uguale a B. 

Invece la routine LM fissa l’indi¬ 
rizzo di partenza, nel quale scrivere i 
valori di A e B, all’indirizzo: 

PEEK 23635 + 256 ★ PEEK 23636 
(istruzione IND) al quale aggiunge 
solo 5 (istruzioni IND + 6). 

Solo ZX81: la routine scrive 10 
nell’indirizzo 16514 e 15 nell’indiriz¬ 
zo 16515. Il risultato viene messo 
nell’indirizzo 16516. I byte 16514, 
16515 e 16516 contengono dei dati e 


non fanno parte della routine di cal¬ 
colo vera e propria. Questa parte 
dall’indirizzo 16517, quindi l’istru¬ 
zione della linea 100 è: 

PRINT USR 16517. 

Questa istruzione scrive sullo 
schermo il valore di C, che equivale 
alla somma dei due numeri cioè 25. 
Il numero è stato anche scritto nella 
locazione 16516; con l’istruzione: 

ZX81 

PRINT PEEK 16516 
Spectrum 

PRINT PEEK (b—1) 

è possibile vedere apparire sullo 
schermo il secondo numero 25. 

Se ora date il LIST, noterete che 
qualcosa non va nella linea 1. 

Per quanto detto in precedenza, 
essa dovrebbe essere composta così: 

1 R£M »•'? 8fcRND?7%777^TRN 678S 
91234.53789013 

per un totale di 15 byte della linea 
REM occupati. (I codici da 67 a 127, 
ed alcuni altri, restituiscono in gene¬ 
re un punto interrogativo). Invece 
appare così: 

1 RCH **'?; 5fcRND TflN 678901234.S 
5789012 

Solo nove dei quindici byte sono 
listati nella linea 1. 

Questo accade sempre quando 
nella routine LM sono presenti 
istruzioni quali, per esempio, 7E. 
Peraltro, il fatto stesso che tutti i 
codici da 67 a 127 vengano rappre¬ 
sentati con un punto interrogativo 
rappresenta già un grave handicap. 
Per quanto riguarda lo Spectrum, 
poi, avevamo visto fin dall’inizio 
che la linea 1 rappresenta un LIST 
parziale e imperfetto. 

Non esistono rimedi a ciò. L’uni¬ 
ca cosa che possiamo fare, è aggiun¬ 
gere al programma LOADER/2 al¬ 
cune linee, che consentano di listare 
per controllo la routine LM intro¬ 
dotta. 

La variazione per lo ZX81 è pub¬ 
blicata nel numero 12 (Programma 


1 REM 1234.5*70!=*® 1 S34.56-7S9I3123 
Ì567S9012 

10 LET B=PCEK 23635+256*PEEK 2 
3636+8 

15 LET IND =B 
2® LET H|a"“ 

30 IF H$="" THEN PRINT RT 0,0, 
•8RTTI IL CODICE OGGETTO" 

4-0 IF H $ “ THEN INPUT H* 

50 IF H|«"r THEN STOP 
52 LET UNO-CODE H*-4©-(39 RND 
4* >”£") 

SS LET DUE-CODE (2) -4-8- (39 R 

6® POKE IND,UNO#16+DUE 
70 LET IND — IND + 1 
50 LET TO ) 

90 GO TO 30 
100 PRINT USR B 


3899 RSH 




SPECTRUH 


1 REM 12345675901234567S90123 
455759312 

1® LET IND =16514 
2* LET H$="" 

3® Ir THEN PRINT RT 0,0; 

'BOTTI IL CODICE" 

40 1= H*- M ” THEN INPUT H$ 

50 IF H(»”F" THEN STOP 
60 POKE IND,16*CODE H*+CODE H* 
<»>-473 

70 LET IND *IND + 1 
50 LET H*=H* (3 TO ) 

00 GOTO 30 
100 PRINT USR 16517 




i ZX8^ 


Listati 9 e 10. Questi programmi ca¬ 
ricano qualsiasi routine LM compo¬ 
sta da numeri esadecimali, che può 
essere battuta direttamente sulla ta¬ 
stiera. 


LDC, listato 2). Per lo Spectrum la 
versione è quella del listato 11 (LO¬ 
ADER/3). 

Dopo averlo introdotto aggiun¬ 
gete le linee: 


Spectrum 

210 PRINT USR b 
220 PRINT PEEK (b - 1) 


ZX81 

210 PRINT USR 16517 
220 PRINT PEEK 16516 


Queste due linee rappresentano il 
programma BASIC. La linea 210 
scrive il risultato della elaborazione 
effettuta dalla routine LM, cioè la 
somma dei due numeri contenuti ne¬ 
gli indirizzi b — 3 e b - 2 (oppure 
16514 e 16515). Tale somma viene 
anche sistemata nell’indirizzo b - 1 
(16516) e con la linea 220 verifichia¬ 
mo che ciò sia realmente avvenuto. 

Date il RUN e battete la routine 
LM SOMMA 1 (tabelle 4 e 5) un 
byte per volta, o in gruppi di più 
byte come preferite. Al termine pre¬ 
mete f e sullo schermo appare la lista 
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Indirizzo 

Codice 

esadecimale 

Assembly 

Equivalente 

decimale 

Analogia 

BASIC 

IND 

2a 

LD HL, (5c 53) 

42 

LEI HL = PEEK 23635 + 256 
* PEEK 23636 

IND = PEEK 23635 
+ 256 ★ PEEK 

23636 + 5 

53 

83 

5c 

92 

IND + 3 

01 

LD BC, 5 

1 

LET BC = 5 

05 

5 

00 

0 

IND + 6 

09 

ADD HL, BC 

9 

LET HL = HL + BC 


e5 

PUSH HL 

229 

LET PUSH = HL 

IND + 8 

3e 

LD A, 10 

62 

LET A = 10 


Oa 


10 



77 

LD (HL), A 

119 

POKE HL. A 


23 

INC HI. 

35 

LET HL = HL + 1 

IND + 12 

3e 

LD A, 15 

62 

LET A = 15 


or 


15 


IND + 14 

77 

LD (HL), A 

119 

POKE HL. A 


el 

POP HL 

225 

LET HL = PUSH 


7e 

LD A, (HL) 

126 

LET A = PEEK HL 


23 

INC HL 

35 

LET HL = HL+ I 


86 

ADD A, (HL) 

134 

LET A = A + PEEK HL 


23 

INC HL 

35 

LET HL — HL + I 


77 

LD (HL), A 

119 

POKE HL. A 

IND + 21 

he 

LD C, (HL) 

78 

LET C = PEEK HL 


06 

LD B, 0 

6 

LET B — 0 


00 


0 


IND + 24 

c9 

RET 

201 

RETURN 


Tabella 4 e 5. Esempio di routine LM 
che somma due numeri. 

di controllo della routine LM: quel¬ 
la che può essere vista nella tabella 
6. Premendo CONT si ottengono 
successive visualizzazioni. Con un 
ultimo CONT si mandano in esecu¬ 
zione le linee 210 e 220 e sullo scher¬ 
mo compaiono i due numeri 25. 


Una procedura diversa 
per lo Spectrum 

Gli utilizzatori dello Spectrum 
avranno notato quanto sia noiosa la 
procedura seguita per immagazzi¬ 
nare una routine LM nella prima 
linea del programma BASIC, so¬ 
prattutto perché l’area del program- 
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Indirizzo 

Codice 

esadecimale 

Assembly 

Equivalente 

decimale 

Analogia 

BASIC 

16514 

0A 


10 

POKE 16514. 10 

16515 

0F 


15 

POKE 16515. 15 

16516 

00 


0 

POKE 16516, 0 

16517 

21 

LD HL, 4082 

33 

LET HL = 16514 


82 


130 



40 


64 


16520 

7E 

LD A, (HL) 

126 

LET A = PEEK HL 

16521 

23 

INC HL 

35 

LET HL = HL + I 

16522 

86 

ADD A, (HL) 

134 

LET A = A + PEEK HL 

16523 

23 

INC HL 

35 

LET HL — HL + 1 

16524 

77 

LD (HL), A 

119 

POKE HL. A 

16525 

4E 

LD C, (HL) 

78 

LET C = PEEK HL 

16526 

06 

LD B, 0 

6 

LET B = 0 


00 


0 


16528 

C9 

RET 

201 

RETURN 
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TABELLA 6 (SpectfUi) 

Lista di controtto detta reatine 

23760 10 

0a 

7 

23761 1S 

0 f 

•y 

23762 © 

00 


23763 4-2 

23 

* 


33764- 

63 

S3 

5 

23766 

92 

5 C 

/ 

33766 

1 

01 

7 

23767 

S 

05 

7 

23766 

0 

00 

7 

23769 

9 

09 


23770 

229 

es 

RESTORE 

23771 

62 

3e 

> 

23772 

10 

03 

7 

23773 

119 

77 

w 

23774. 

35 

23 

8 

23775 

62 

3e 

> 

23776 

15 

0f 

7 

23777 

119 

77 

W 


33776 

225 

e 1 

LLIST 

5377S 

1£& 

74 


5378® 

35 

23 

i 

23781 

134 

86 

23782 

35 

23 

8 

23 783 

119 

77 


23784 

78 


n 

23785 

6 

06 

23786 

0 

00 

-> 

237S7 

201 

c 9 

< > 


Tabella 6. Videata di controllo offer¬ 
ta dal programma LOADER/3 quan¬ 
do viene caricata la routine SOMMA 
1. 

ma non ha un indirizzo fisso di par¬ 
tenza. 

Dobbiamo trovare un metodo 
che consenta di scrivere la routine 
partendo da un indirizzo fisso. Que¬ 
sto obiettivo può essere raggiunto 
solo tornando a scrivere la routine 
nella parte alta della memoria 
RAM, e con lo Spectrum possiamo 
farlo; la routine LM può essere regi¬ 
strata su nastro anche se risiede nel¬ 
la parte alta. 

Occorre però usare una procedu¬ 
ra che a prima vista può apparire 
abbastanza complessa, ma che di¬ 
venta semplice con un po’ di pratica. 

Anzitutto dobbiamo scegliere un 
adeguato indirizzo di partenza nella 
parte alta della memoria RAM. 

Il manuale suggerisce l’indirizzo 
32500, ed effettivamente è il miglio¬ 
re. 

Scegliendo l’indirizzo 32500 come 
locazione di partenza per la routine 
LM abbiamo a disposizione 100 in¬ 
dirizzi: tutti quelli fino al 32599. 

Infatti il 32599 è il byte RAM- 
TOP, cioè il byte più alto della parte 
di RAM a disposizione del BASIC, 
quindi l’ultimo byte utilizzabile del¬ 
la RAM. 


ALCUNE NOZIONI SUI NUMERI BINARI 

Come si legge un numero binario 

La lettura di un numero binario inizia dall’ultima cifra a destra, che può valere 1 oppure 
0. Nel numero binario: 

10011101 

l’ultima cifra a destra è 1 quindi vale 1. Invece nel numero: 

11110010 

l’ultima cifra a destra è zero quindi vale 0. 

Tutte le altre cifre procedendo sempre da destra verso sinistra valgono sempre zero, in 
qualsiasi posizione si trovino, se sono zero. Se invece sono 1 il loro valore si calcola con 
successive potenze del 2. Nel numero binario: 

10011 

le cifre valgono: 

16 0 0 2 1 

quindi il numero nel suo complesso vale: 

16+0 + 0 + 2+1 = 19 

Il numero binario: 

11111111 

vale: 

128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 255 
Somma di due numeri binari 

Vediamo ora come avviene la somma di due numeri binari. Anche loro vanno messi in 
colonna uno sotto l’altro. Per esempio: 


0011 + 
0101 = 


L’addizione nell’esempio rappresenta tutte le combinazioni possibili tra le cifre 1 e 0. 
Volendo sommare singolarmente ogni colonna partendo dalla prima a destra senza tener 
conto dei riporti, avremmo i risultati illustrati nella tabella 8. 

Nella effettiva esecuzione della addizione dobbiamo tenere conto dei riporti, ma la 
tabella 8 rimane valida. L’addizione risolta appare così: 

111 

0011 + 

0101 = 

1000 

la prima colonna a destra dà 0; il carry vale 1 e lo annotiamo sulla colonna subito a 
sinistra. 

Questa seconda colonna ( I - 1 - 0) può essere considerata equivalente a 1 - 1 ignorando 

10 zero. Quindi anche la seconda colonna dà 0 e il carry vale ancora 1. 

Analogamente nella terza colonna (0 - 1 - 1) consideriamo solo i due 1 ignorando lo Oed 

11 risultato è ancora 0 con un carry uguale a 1. 

La quarta colonna (1 —0 — 0) può essere considerata uguale a 1 — Oo più semplicemente 1, 
e dà 1 senza alcun carry. 

La somma dei due numeri è 1000. In decimale: 

0011 = 3 
0101 = 5 
1000 = 8 


Vediamo ora un altro caso: 


111 + 
101 = 


La prima colonna a destra dà 0 con il carry uguale a 1. Lo scriviamo sulla seconda 
colonna. 

Questa dà 0 con il carry a 1 che viene scritto sulla terza. A questo punto la situazione è: 

11 

111 + 

101 = 

00 
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Sopra RAMTOP ci sono ancora 
169 byte di memoria RAM, dal 
32600 al 32768 che sono destinati a 
contenere i caratteri definiti dall’u¬ 
tente. 

Perché il byte RAMTOP è posto 
sotto l’area dei caratteri-utente? 

La risposta è semplice: perché tut¬ 
ti i byte sopra la RAMTOP sono al 
sicuro rispetto eventuali incidenti 
che potrebbero accadere al di sotto. 
Non risentono il LOAD, né il SA¬ 
VE, né il NEW; non possono assolu¬ 
tamente confondersi con il pro¬ 
gramma BASIC perché RAMTOP è 
il limite della memoria utilizzabile 
dal BASIC. 

Scrivendo un programma BASIC 
molto lungo, questo può riempire 
tutta la RAM ma solo fino al byte 
RAMTOP e neppure un byte di più. 

Potete fare una prova abbassando 
il byte RAMTOP all’inizio della me¬ 
moria RAM. L’abbassamento si ot¬ 
tiene con l’istruzione: CLEAR se¬ 
guita dall’indirizzo del byte in cui si 
vuole posizionare la RAMTOP. Per 
esempio, CLEAR 25000 significa: 


L’utente può utilizzare al massimo i 
byte fino al 24999. 


Rimane inteso che i byte dal 
25000 al 32768 esistono ancora e 
possono essere scritti o letti con 
istruzioni del tipo PEEK o POKE. 
Scrivete: 

CLEAR 23860 

e poi ENTER. Provate poi a scrivere 
la linea: 

1 REM 00000 

Arrivati al quarto zero sentirete il 
segnale acustico di MEMORIA 
PIENA, e non riuscirete a scrivere il 
quinto zero. Se premete ENTER ap¬ 
pare il segnale: no room for line. 
Eppure non avete ancora introdotto 
neppure una linea! 

Dunque non è mai conveniente 
spostare RAMTOP troppo in basso, 
ci converrà abbassarlo solo di 100 
byte rispetto al suo valore normale. 

Con CLEAR 32499, si ottengono 
100 byte protetti, compresi tra l’in¬ 
dirizzo 32500 e il 32599. In questi 
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Seguito riquadro 



I tre i della terza colonna vanno risolti 

separatamente. I primi due danno: 


1 

1 

+ 


10 


Aggiungendo il terzo otteniamo: 

10 

1 

+ 


11 


Quindi il risultato finale diventa: 



11 

111 + 


7 + 

101 - 


5 = 

1100 


12 


1 

REM 1234.6670901234-567690123 

15B709012 


10 

LET 0=PEEK 23635+2S6*PEEK 2 

3636+0 


16 

LET IND 


20 

LET H$= 


30 

1.® H$» M " THEN PRINT RT 

0,0/ 

INi>; 1 

? t fi =3T DP-> ” 


4-0 

IF H*="” THEN INPUT H* 


60 

IF THEN GO TO 100 

62 

LET UNO-CODE H*-4-0-C39 

RND 

-1$ > •£■’.> 


65 

LET DUE-CODE HIO)-48- 

(39 P 

4D 


60 

PQKE IND,UNO*16+DUE 


■70 

LET IND = IND♦1 


00 

LET H t =H| (3 TO > 


©0 

QO TO 30 


100 

FOR K-B TO IND — 1 


110 

LET H»="" 


120 

LET N-PEEK K 


130 

FOR Ul — 1 TO 2 


136 

LET P» (46+N-16*INT tM/16) ì 

14-0 

LET HIflCHRl (P+(39 RND 

P >57 

< J +H* 


150 

LET N=INT (N/16) 


160 

NEXT U 


1©0 

PRINT K;TRB 7;PEEK K;TRB 12 

,H$;TOB 16;CHR* PEEK K 


190 

NEXT K 


200 

STOP 


9999 

REM 


LOflDER/3 SPECTRUM 



Listato 11. Oltre a caricare qualsiasi 
listato in linguaggio macchina (mas¬ 
simo 32 byte) questo programma of¬ 
fre anche, al temine del caricamento, 
un listato di controllo simile a quello 
illustrato nella tabella 6. 

byte possiamo sistemare routine 
LM anche molto lunghe. 

Il programma LOAD AND 
CHECK (abbreviato: LDC) del li¬ 
stato 12 tiene conto di quanto detto 
finora: le routine LM vengono im¬ 
magazzinate a partire dal byte 
32500. 

Ora vediamo come è possibile 
scrivere la routine LM negli indirizzi 
dal 32500 in avanti, riuscendo poi a 
registrarla su nastro. 

Per cominciare caricate il pro¬ 
gramma LDC del listato 12 e ag¬ 
giungete le linee: 

210 PRINT USR 32503 
220 PRINT PEEK 32502 



CLERR 32499 


10 

LET IND-32500 


£0 

LET H < ** " ” 


30 

IF H* = ' "• THEN PRINT RT 

0/0, 

IND, • 

7 ( f -STOP) ’• 


40 

IF HI»"" THEN INPUT 


50 

IF H» » ”f " THEN GO TO 100 

52 

LET UNO-CODE (39 

RND 

-it> "£’* > 


56 

LET DUE-CODE Hi(2)-48- 

(39 R 

4D HI (2) > ”£" ) 


60 

POKE IND, (JNO*16+DUe 


70 

LET IND =IND + 1 


©0 

LET Hi = Hi (3 TO > 


90 

QO TO 30 


100 

FOR K =32500 TO IND-1 


110 

LET Hi-”” 


120 

LET N=PEEK K 


130 

FOR U=1 TO 2 


13S 

L^T P» (48+N-16HNT (N/16)) 

140 

LET HSsCHRS ( P + t39 RND 

P >57 



150 

LF.T NssINT (N/16) 


160 

NEXT U 


160 

PRINT K.TPB 7;PEEK K;TRB 12 

•TRS 16:CHR| PEEK K 


190 

NEXT K 


210 

PRINT USR 32503 


220 

PRINT PEEK 32502 


?9S9 

REM 


LORO 

RND CHECK - SPECTRUM 




Listato 12. Questo programma con¬ 
sente di caricare nello Spectrum rou¬ 
tine LM, sistemandole negli indirizzi 
compresi tra il 32500 e il 32599. Con 
la procedura descritta nell’articolo la 
routine (massimo 100 byte, facilmen¬ 
te aumentabili) pur essendo sistemata 
nella parte alta della memoria può 
essere registrata su nastro. 

Si evita così di usare la linea 1, dato 
che nello Spectrum l’area del pro¬ 
gramma non ha un indirizzo fisso di 
partenza. 

Date il RUN e battete il codice 
esadecimale della routine LM illu¬ 
strata nella tabella 7 (SOMMA 2). 
Le prime tre istruzioni: 

0 A, 0F, 00 

scrivono i numeri 10, 15 e 0 nelle 
locazioni 32500, 32501 e 32502. 

La routine somma il contenuto 
delle locazioni 32500e 32501, quindi 
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Indirizzo 

Codice 

Asseinblv 

Equivalente 

Analogia 

esadecimaie 

decimale 

BASIC 

32500 

0a 


10 

POKE 32500. 10 


0f 


15 

POKE 32501, 15 


00 


0 

POKE 32502, 0 

32503 

21 

LD HL, 7EF4 

33 

LET HL = 32500 


f4 


244 



7e 


. 126 


32506 

7e 

LD A, (HL) 

126 

LET A = PEEK HL 

32507 

23 

INC HL 

35 

LET HL = HL + 1 

32508 

86 

ADD A, (HL) 

134 

LET A — A + PEEK HL 

32509 

23 

INC HL 

35 

IJLT HL= HL + 1 

32510 

77 

LD (HL), A 

119 

POKE HL A 

32511 

4e 

LD C, (HL) 

78 

LET C = PEEK HL 

32512 

06 

LD B, 0 

6 

LET B = 0 


00 


0 


32514 

C9 

RET 

201 

RETURN 


Tabella 7. Esempio di routine LM che può essere caricata con il programma 
LDC del listato 12. 


l’istruzione USR ritorna il risultato, 
cioè il numero 25. 

La linea 210 fa partire la routine 
dall’indirizzo 32503, perché gli indi¬ 
rizzi precedenti contengono i dati da 
sommare. 

Il risultato viene anche scritto nel¬ 
la locazione 32502, e con la linea 220 
si verifica che ciò sia realmente acca¬ 
duto. 

Terminato il caricamento della 
routine premiamo f ed appare il 
LIST, simile a quello già visto nella 
Tabella 6 per SOMMA 1. 

Premendo due volte CONT il 
computer esegue il programma (cioè 
le linee 210 e 220) scrivendo sullo 
schermo: 

25 

25 

Ammettiamo ora di voler regi¬ 
strare questo programma, per po¬ 
terlo utilizzare in un secondo tempo. 
Anzitutto potremmo cancellare tut¬ 
te le linee dalla 10 alla 200 (eliminan¬ 
do così il programma LDC che non 
serve più e lasciando solo il pro¬ 
gramma BASIC che utilizza la rou¬ 
tine, cioè le linee 210 e 220), ma 
siccome abbiamo sufficiente memo¬ 
ria, lasciamo LDC al suo posto. 


La procedura da seguire per la 
registrazione è questa: 

a) cambiare così la linea 1 del pro¬ 
gramma già pronto in memoria: 

0 CLEAR 32499: LOAD “ ” 
CODE 32500, 100: GOTO 210 
Attribuiamo alla linea il numero 
zero per renderla sicura da eventuali 
cancellazioni effettuate per errore. 
Vedremo tra poco come ottenere la 
linea 0, per ora scrivetela con il nu¬ 
mero 1. 

Il programma e la routine vanno 
registrati separatamente, ma l’istru¬ 
zione della linea 0 oltre ad abbassare 
il byte RAMTOP al valore 32499, 
consentirà di caricare il programma 
e la routine LM insieme. In pratica 
programma e routine saranno regi¬ 
strati sul nastro uno di seguito all’al¬ 
tro, con due operazioni di SAVE, 
ma in fase di caricamento, sarà suffi¬ 
ciente una sola operazione di LO¬ 
AD. 

b) Eseguire la registrazione del pro¬ 
gramma BASIC, scrivendo: 

SAVE “somma” LINE 0 
Avviate il registratore, premete 
ENTER e un tasto qualsiasi. Il pro¬ 
gramma BASIC viene registrato. Al 
termine, fermate il registratore pos¬ 


sibilmente con il tasto PAUSE, 
c) Eseguire la registrazione della 
routine LM, scrivendo: 

SAVE “somma” CODE 32500, 100 

Avviate nuovamente il registrato- 
re ed eseguite la seconda registrazio¬ 
ne. Ora programma e routine sono 
pronti sul nastro. Spegnete il com¬ 
puter e riaccendetelo, per avere la 
certezza che la memoria sia comple¬ 
tamente vuota. 

Riavvolgete il nastro e scrivete: 
LOAD “somma” o anche: LOAD “ * 

Osservando lo schermo noterete 
che il computer effettua il carica¬ 
mento del programma. Terminato 
questo non si ferma ma comincia 
automaticamente il caricamento 
della routine LM che segue sul na¬ 
stro. Ecco la spiegazione: 

Con l’istruzione SAVE “somma” 
LINE 0 registriamo il programma 
con un particolare accorgimento: 
facciamo in modo che il program¬ 
ma, appena caricato, parta automa¬ 
ticamente dalla linea 0, di cui parle¬ 
remo tra poco. 

Cioè SAVE seguito da LINE 0 fa 
in modo che ogni LOAD eseguito 
successivamente diventi uguale a 
LOAD seguito automaticamente da 
GOTO 0. 

Una volta caricato, il programma 
va automaticamente in esecuzione 
partendo dalla linea 0. Questa ab¬ 
bassa il byte RAMTOP per creare 
un’area protetta ed esegue un LO¬ 
AD particolare, cioè carica dei dati 
binari (contenuti nella seconda regi¬ 
strazione) e li sistema a partire dal 
byte 32500 in avanti. 

Terminato questo secondo cari¬ 
camento il programma passa alla li¬ 
nea 210 per evitare che la linea 10 
chieda l’inserimento di una nuova 
routine LM. 

Se il programma LDC era stato 
cancellato in precedenza, il GOTO 
210 può essere omesso ed il pro¬ 
gramma BASIC prosegue dalla pri¬ 
ma linea successiva allo 0. 

La linea 0 presenta il grosso van¬ 
taggio di poter essere listata, ma di 
non poter essere cancellata per erro¬ 
re, né editata. 
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Figura 3. Rappresentazione grafica della istruzione PRINT USR 32000 conte¬ 
nuta nella linea 60 del listato 1. 


Numeri 

Risultato 

C’arry 

1 1 

0 

I 

0 1 

1 

0 

1 0 

1 

0 

0 0 

0 

0 

1 0 0 

1 

0 

0 0 0 

0 

0 

1 1 1 

11 

0 


Tabella 8. Combinazioni possibili tra 
i digit 1 e 0 quando viene eseguita una 
addizione binaria. 


Una volta inserita è come se non 
ci fosse perché il programma può 
cominciare normalmente dalla linea 
1; tuttavia la linea 0 c’è e assicura 
che venga caricata sempre anche la 
routine LM. 

È importante ricordarsi di usare 
SAVE “prog” LINE 0 quando si 
registra il programma BASIC. La 
linea 0 può anche essere usata in 
altre occasioni per proteggere le 
routine LM contenute nella linea 1 
REM (che diventa 0 REM) o per 
contenere messaggi particolari, co¬ 
me per esempio il nome dell’autore 
di un programma. 

Eccome come ottenere il numero 
di linea 0: 

1) scrivete una linea 1. Per esempio: 

1 REM CLIVE SINCLAIR 

2) Battete il comando diretto: 

POKE (PEEK 23635 + 256 ★ 

PEEK 23636 + 1), 0 
e premete ENTER. Lo schermo si 
sbianca: se date il LIST vedete che la 
linea 1 è diventata linea 0, e volendo 
potete inserire una nuova linea 1. Se 
in seguito decidete di modificare la 
linea 0, dovete ritrasformarla in li¬ 
nea 1. Ciò si ottiene con: 

POKE (PEEK 23635 + 256 ★ 
PEEK 23636 + 1), 1 

Se avevate inserito una linea 1, avre¬ 
te sullo schermo due linee 1. 

La linea 0 può essere ottenuta anche 
sullo ZX81. L’istruzione è: 

POKE 16510, 0 

Per ritrasformarla in linea 1 oc¬ 
corre scrivere: 
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POKE 16510, 1 
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Il Carry 

Cominciamo ora la spiegazione di 
alcuni concetti importantissimi che 
vanno assolutamente compresi se si 
vuole programmare sul serio in lin¬ 
guaggio macchina. Ora parleremo 
del Carry, nella prossima puntata 
tratteremo l’AREA STACK e l’i¬ 
struzione JUMP. 

Ammettiamo di voler sommare i 
numeri decimali 1883 e 4542. 

La somma va eseguita partendo 
dalle due cifre incolonnate più a de¬ 
stra. Il primo passo nello svolgimen¬ 
to dell’addizione è il seguente: 

4882 + 

4542 = 

5 

Nel secondo passo dobbiamo 
sommare 8 e 4. Il risultato è 12, ma 
non possiamo scrivere 12 sotto la 
seconda colonna perché ogni colon¬ 
na può contenere una sola cifra. Al¬ 
lora, come abbiamo imparato a 
scuola, dividiamo il 12 in due parti. 
Le unità (2) vanno scritte sotto la 
colonna in oggetto, le decine (1) co¬ 
stituiscono il RIPORTO (in inglese, 
CARRY) e le annotiamo in caratteri 
più piccoli sopra la colonna succes¬ 
siva verso sinistra. Ora la situazione 
è la seguente. 

1 

1883 + 

4542 = 

25 

Sommando la terza colonna dob¬ 
biamo tenere conto di tre numeri: 1 
(riporto), 8 e 5. La loro somma è 14. 
Anche qui abbiamo un riporto e 
scriviamo: 

11 

1883 + 

4542 = 

425 


Il risultato finale è 6425. 

Se vogliamo essere pignoli, anche 
la prima colonna, quella più a de¬ 
stra, aveva generato un riporto 
uguale a zero ed anche l’ultima ter¬ 
mina con un riporto uguale zero. 
Quindi c’è un riporto per ogni cifra e 
cioè: 0 110. Uno (o altro valore) 
quando c’è un riporto, zero quando 
il riporto non c’è. 

Ora, dobbiamo sapere che nessu¬ 
no è più pignolo di un computer e 
mentre noi ignoriamo il riporto 
quando è uguale a zero, il computer 
invece lo considera e lo annota an¬ 
che in quel caso. 

Per eseguire qualsiasi somma il 
computer non segue il procedimen¬ 
to appena visto, perché era relativo 
ai numeri decimali mentre lui lavora 
con i numeri binari. Ma anche le 
addizioni con i numeri binari com¬ 
portano spesso dei riporti ed il com¬ 
puter deve annotare in qualche par¬ 
te della sua memoria (come noi lo 
annotiamo sulla carta) i riporti delle 
operazioni che esegue. 

Sommando due numeri in aritme¬ 
tica binaria il riporto può valere solo 
0 (quando non c’è) oppure 1 (quan¬ 
do c’è). 

Siccome zero e uno sono anche i 
valori possibili di un bit, il computer 
usa un bit (non un byte) per conser¬ 
vare i dati relativi al riporto. Questo 
bit è contenuto nel registro F, che 
non è altro se non un byte della 
CPU. 

Anche altri bit del registro F ven¬ 
gono utilizzati per indicare partico¬ 
lari condizioni. 

I bit di F si contano da 0 a 7 e 
quello usato per indicare lo stato di 
CARRY (= RIPORTO 1) o NON 
CARRY (= NIENTE RIPORTO) è 
il bit numero 0. 

Proprio perché questi bit del regi¬ 
stro F indicano qualche cosa, si 
chiamano FLAGS (INDICATORI) 
e sono tutti contenuti nello stesso 
registro. D’ora in poi chiameremo il 
riporto “CARRY”, come consuetu¬ 
dine. 

Alcune nozioni sui numeri binari 
vengono illustrate nel riquadro rela¬ 



tivo e nella tabella 8. Quando il com¬ 
puter esegue un’addizione sistema il 
primo numero da sommare nell’ac¬ 
cumulatore o Registro A (occorre 
notare che questo registro è un byte, 
quindi può contenere al massimo 
numeri fino a 255. Numeri più alti 
possono essere sistemati in un regi¬ 
stro doppio). 

Aggiunge poi al numero nell’ac¬ 
cumulatore il secondo numero da 
sommare ed al termine dell’opera¬ 
zione l’accumulatore contiene la 
somma. Se questa supera 255 abbia¬ 
mo un owerflow, e il flag del carry (il 
bit 0 del registro F) viene messo a 1. 
Invece l’accumulatore assume un 
valore pari alla differenza tra la 
somma e 256. 

Per esempio, se proviamo a met¬ 
tere 255 nell’accumulatore som¬ 
mandogli poi uno, l’accumulatore 
va a zero ed il flag del carry viene 
messo al valore di 1. 

Mettendo invece nell’accumula¬ 
tore 200 e sommandogli 100, il flag 
del carry viene messo a 1 e l’accumu¬ 
latore diventa uguale a 300 — 256 = 
44. 

Sommando due numeri che dan¬ 
no meno di 256 il FLAG C (= 
CARRY) viene resettato (= 0). 

L’istruzione: ADD A, B (tabella 4 
nel numero 12) può essere conside¬ 
rata equivalente alle seguenti istru¬ 
zioni BASIC: 

LET A = A + B 

LET CARRY = INT ((A + B)/256) 

Si noti che la gestione del carry tra 
un bit ed il successivo dello stesso 
byte (durante un’operazione aritme¬ 
tica) è automatica e non può essere 
controllata nemmeno dal linguag¬ 
gio macchina. 

Il bit di carry (del registro F) serve 
per ottenere il riporto corretto som¬ 
mando numeri di più byte. Chi è 
molto curioso può provare ad af¬ 
frontare le pagine relative in un libro 
di programmazione in LM per la 
Z80. 
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— Parte prima — 


Pubblichiamo in questa 
prima puntata una 
splendida simulazione 
di una battaglia navale 


di Umberto Giovanni Barzaghi 

H o già parlato, sulle pagine 
della rivista Jackson con¬ 
sorella di Personal Softwa¬ 
re - Bit - di wargame, boardgame e 
computer-game, e in particolare, 
sulle differenze intercorrenti tra l’u¬ 
no e l’altro di essi. Ho anche realiz¬ 
zato due programmi che esemplifi¬ 
cano due dei tre tipi suddetti: un 
classico computer-game (Caccia 
all’U-boot su Bit n. 10 anno 3°) ed 
un boardgame piuttosto sofisticato 
(forse troppo! ’14-’18, su Bit n. 23 
anno 4°). 

Mi accingo ora ad offrire al pub¬ 
blico di Personal Software la mia 
terza creatura nel campo dei “giochi 
di guerra” e che, almeno nelle mie 
intenzioni, dovrebbe avere pieno di¬ 
ritto a fregiarsi del titolo di warga¬ 
me, e ad acquisire i pregi dei due tipi 
suddetti (l’esperienza acquisita nella 
realizzazione di entrambi mi è stata 
assai utile nella progettazione di 
questo programma) senza accusar¬ 
ne i difetti; non è infatti un semplice 
boardgame, come ’14-’18, poiché 
non si gioca su di una scacchiera ma 
su di una cartina geografica ricca di 
particolari; inoltre Abukir 1798 non 
presenta quelle caratteristiche di 
lentezza che rendevano ’14-’18 esa¬ 
sperante da giocare per chiunque 
non fosse naufragato su di un’isola 
deserta con la sola compagnia della 
copia di Bit su cui il programma è 
apparso! 


Inoltre il programma in questione 
presenta, come in Caccia all’U- 
boot, una parte, per così dire, tatti¬ 
ca, in cui cioè non si debbono pren¬ 
dere delle decisioni strategiche a me¬ 
dio o lungo termine nell’economia 
del gioco (come spostare le truppe o 
- in questo caso - le navi in modo da 
affrontare poi lo scontro tattico) ma 
delle decisioni a breve e brevissimo 
termine (che alzo dare ai cannoni, 
dove e quando piazzare il colpo). 

Si può anzi affermare che Abukir 
1798 è frutto diretto del desiderio di 
realizzare una sintesi di gioco tattico 
e gioco strategico, oltre che di una 
serie di particolari circostanze. Una 
di queste, come spesso accade, è le¬ 
gata ai miei studi di ingegneria, ed in 
particolare ad una formula di dina¬ 
mica balistica studiata in Meccanica 
Razionale e rimasta appesa in qual¬ 
che angolo della memoria finché 
non è venuto il momento di utiliz¬ 
zarla (per un gioco!). Un’altra di 
queste circostanze favorevoli è rap¬ 
presentata da un libro: “Le grandi 
battaglie navali a vela” di Christop¬ 
her Lloyd, edito dalla Rizzoli nella 
collana Internationl Library, su cui 
ho trovato cartine e prospetti di cui 
mi sono servito per realizzare il pro¬ 
gramma. 

Penso che sia venuto il momento 
di svelare cosa si nasconde dietro il 
titolo del programma. Abukir è il 
nome di una baia sulla costa medi- 
terranea dell’Egitto à est di Alessan¬ 
dria, dove, il 1 Agosto del 1798 la 
fiotta inglese comandata daH’ammi- 
raglio Nelson sorprese ed in gran 
parte affondò o costrinse ad arenar¬ 
si la flotta francese di appoggio alla 
campagna di Napoleone in Egitto, 
comandata dall’ammiraglio Brueys. 

Avrei, naturalmente, potuto sce¬ 
gliere una battaglia più nota, ad 
esempio Trafalgar o Capo S. Vin¬ 
cenzo o Camperodown; ma ci sono 
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alcune ragioni che mi hanno fatto 
scegliere la battaglia della baia di 
Abukir. 

Una è senz’altro la varietà e l’inte¬ 
resse del campo di battaglia, chiuso 
da tre lati su quattro dalla terrafer¬ 
ma e dalle secche che ne facevano un 
approdo ideale per una fiotta di ap¬ 
poggio. Un’altra ragione è data dal 
fatto che alla vittoria in questa bat¬ 
taglia è legata la fama di Horatio 
Nelson, più che alla battaglia di Tra¬ 
falgar, in cui l’ammiraglio inglese 
perse la vita, per una fucilata di un 
tiratore scelto piazzato sulla coffa di 
una nave nemica solo mezz’ora do¬ 
po l’inizio della battaglia. 

Un’ultima ragione è data dal fatto 
che l’eliminazione della flotta d’ap¬ 
poggio francese, segnò la fine della 
campagna di Napoleone in Egitto, 
intrappolando il corpo di spedizione 
francese e costringendo il piccolo 
caporale ad abbandonare i suoi 
uomini fuggendo in Franca su di 
una veloce fregata. 

Un’altro elemento di interesse è 
dato dalla disparità delle forze in 
campo, nettamente a favore dei 
francesi, che si fecero però sorpren¬ 
dere all’ancora dalla manovra aggi¬ 
rante degli inglesi. 

La flotta di Nelson era composta 
da dodici navi gemelle, dodici due 
ponti, comandate dai suoi migliori 
capitani, la famosa “banda di fratel¬ 
li” (così chiamata da un famoso ver¬ 
so dell’Enrico IV di Shakespeare 
“...We, a bunch of brothers”.). In 
realtà una di queste, la “Culloden”, 
che era rimasta indietro rispetto al 
grosso, nella fretta di serrar sotto, 
aveva finito per incagliarsi in un 
banco di sabbia al largo della peni¬ 
sola di Abukir; solo a battaglia fini¬ 
ta sarebbe stata disincagliata. 

Nel programma ho preferito por¬ 
re la “Culloden” in una posizione 
leggermente arretrata (come risulta. 
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guarda caso, dalla cartina della bat¬ 
taglia tratta dall’altro testo di cui mi 
sono servito: la solita “Storia delle 
guerre” del Feldmaresciallo - ingle¬ 
se! - Bernard Law Montgomery, il 
famoso Montgomery di E1 Ala- 
mein), prima che si arenasse, ma in 
grave pericolo di farlo. 

La Botta francese, invece, conta¬ 
va, oltre che su dodici dueponti, su 
di un treponti, la nave ammiraglia 
“L’Orient”, e quattro fregate, schie¬ 
rate nella parte più interna della 
baia, protette dal resto della flotta 
francese. Il nodo dell’intera batta¬ 
glia è rappresentato prorio dalla po¬ 
sizione della flotta francese all’anco¬ 
ra, rispetto alle secche. 

Tutto sarebbe andato bene, se la 
nave in testa fosse stata ancorata più 
vicino ai bassifondi di fronte alla 
punta di Abukir e se le altre navi 
fossero state più ravvicinate. Le pri¬ 
me sei navi inglesi, infatti, si incune¬ 
arono tra i bassifondi, in un punto in 
cui l’acqua era profonda solo cinque 
braccia, e la prima delle navi france¬ 
si, in altre parole penetrando dietro 
la linea nemica, dalla parte in cui i 
cannoni francesi non erano stati 
preparati. 


Il programma 

Il programma consente di giocare 
contro il calcolatore. Coloro che 
hanno avuto già modo di giocare 
con ’ 14-’ 18 non si spaventino, con¬ 
trariamente al programma suddetto 
Abukir ha una routine di scelta delle 
mosse del calcolatore assai rapida, 
per quanto altrettanto efficiente di 
quella di ’ 14-’ 18; ciò è stato possibile 
grazie ad una notevole differenza re¬ 
golamentare tra i due wargame: 
mentre in ’ 14-’ 18 ogni giocatore do¬ 
veva scegliere, di volta in volta, non 
solo che mossa effettuare tra mezza 


dozzina di alternative possibili, ma 
anche quale pedina muovere; in 
Abukir 1798, come nella maggior 
parte degli attuali wargame il gioca¬ 
tore deve muovere alternativamente 
ciascun pezzo, aumentando così il 
realismo della simulazione: trattan¬ 
dosi infatti di una battaglia navale, 
non avrebbe molto senso che una 
nave, che non si trovasse all’ancora, 
rimanesse ferma nella sua posizione 
rinunciando al proprio turno, men¬ 
tre le altre procedono a normale ve¬ 
locità; per cui, anche nel caso in cui 
si “passi” la propria mossa, la nave 
continua ad avanzare nella sua rotta 
attuale. Poiché la flotta francese è 
composta da un numero di navi 
maggiore rispetto a quella inglese, 
per mantenere una velocità costante 
tra le due flotte, le due flotte si muo¬ 
vono a mosse alternate a partire dal¬ 
le navi di testa dello schieramento 
(la “Goliath” per la flotta inglese ed 
il primo dei dueponti per la france¬ 
se), fino alla mossa della “Cullo- 
den” e del dueponti francese nume¬ 
ro dodici; dopo di che per la flotta 
inglese toccherebbe nuovamente al¬ 
la “Goliath”, ciò renderebbe però la 
velocità della flotta inglese lieve¬ 
mente superiore a quella della flotta 
francese, differenza del tutto ingiu¬ 
stificata. Quindi dopo il dueponti 
francese numero dodici, la flotta 
francese può muovere la “Géné- 
reux” e le quattro fregate prima di 
restituire la mossa alla flotta inglese. 
Per la stessa ragione, quando, nel¬ 
l’arco dello scontro si creano dei 
vuoti nelle file delle due flotte, questi 
“gap” non vengono colmati dalle 
navi seguenti nella linea di fila e può 
capitare, a causa di rese o affonda¬ 
menti o disalberamenti, che la mos¬ 
sa tocchi a due o più navi della stessa 
flotta consecutive. 

Poiché il calcolatore deve solo 
scegliere “come” muovere ciascun 


pezzo e non “quale” pezzo muove¬ 
re, la routine che determina la mossa 
del calcolatore è piuttosto rapida, 
pur mantenendo un grado di effica¬ 
cia elevato quanto quello della ana¬ 
loga routine di ’ 14-’ 18. 

Contrariamente a quest’ultimo 
programma il giocatore può sceglie¬ 
re quale delle due flotte controllare, 
anche se deve mantenere la sua scel¬ 
ta per la durata di tutta la partita. 
Analogamente ad altri programmi 
da me realizzati, è possibile salvare 
su cassetta una situazione interme¬ 
dia della partita in modo da poterla 
riprendere in un momento successi¬ 
vo. 

Il programma inizia infatti of¬ 
frendo all’utente la possibilità di ri¬ 
prendere una partita precedente- 
mente interrotta; nel caso in cui l’u¬ 
tente risponda positivamente, si ac¬ 
cede ad una opportuna subroutine 
di caricamento e la partita viene ri¬ 
presa nel punto in cui era stata inter¬ 
rotta, dopo aver ricostruito sulla 
cartina la situazione esistente. Nel 
caso contrario viene richiesto al gio¬ 
catore quale delle due flotte desidera 
controllare; quindi appare sul video 
il campo di battaglia con la posizio¬ 
ne iniziale delle due flotte, così come 
l’ho ricavata dal libro di Lloyd. La 
flotta francese, all’ancora, può ri¬ 
spondere al fuoco se coinvolta in 
uno scontro con un dueponti ingle¬ 
se, ma, per poter salpare le ancore, 
deve saltare il turno, rimanendo im¬ 
mobile. 

Il programma può essere diviso in 
due parti: una parte strategica che si 
svolge sulla cartina suddetta, ed una 
parte tattica. 


Strategia 

La parte strategica è rappresenta¬ 
ta dalle evoluzioni delle navi sul 


21 


I 


Abukir 1798 
battaglia navale 

campo di battaglia ed ha come fine 
quello di giungere in posizione favo¬ 
revole alla parte tattica, vale a dire 
agli scontri balistici, che sono i diret¬ 
ti responsabili dell’esito della bat¬ 
taglia. 

Come detto, questa parte si svolge 
sulla cartina stilizzata rappresentan¬ 
te la baia di Abukir. In grigio (carat¬ 
tere retinato) viene rappresentata la 
terraferma, mentre in bianco sono 
indicate le secche. Tutte le navi, na¬ 
turalmente, si incagliano sulla terra¬ 
ferma; mentre le sole fregate (poiché 
pescano poco) sono in grado di 
avanzare sui banchi di sabbia senza 
arenarsi. 

La flotta francese è rappresentata 
dai pallini scuri, mentre quella ingle¬ 
se dai pallini bianchi. Sul campo di 
gioco troviamo anche altri due ca¬ 
ratteri analoghi a quelli che contrad¬ 
distinguono le navi, ma piazzati in 
terraferma: il pallino bianco in ne¬ 
gativo piazzato vicino al lato ovest 
della cartina, rappresenta il forte di 
Abukir, che non intervenne mai, co¬ 
munque, nella battaglia - come il 
lettore avrà modo di constatare di 
persona giocando, è praticamente 
impossibile portare un vascello a ti¬ 
ro del forte senza incagliarsi -; inter¬ 
viene invece, nel solo caso in cui uno 
dei dueponti inglesi giunga a tiro, il 
forte piazzato sull’isola di Abukir e 
rappresentato dal pallino nero in ne¬ 
gativo nei pressi del lato nord della 
cartina. Il suo campo di tiro è rap¬ 
presentato da un quadrato di cinque 
unità video per lato, centrato sul 
forte stesso. 

Sarà il calcolatore stesso a preoc¬ 
cuparsi di saltare alla pagina tattica 
del gioco nel caso in cui un giocatore 
sbadato, giocando ovviamente con 
la flotta britannica, si andasse a fic¬ 
care a tiro delle batterie del forte (il 
calcolatore, infatti, non commette 
da questo punto di vista nessun er¬ 
rore e, reiterati tentativi dell’autore 
di costringere una o più navi avver¬ 
sarie a portarsi a tiro del forte sono 
miseramente falliti). 

Dopo aver dato il via alla partita 
od averne ripresa una interrotta, il 
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calcolatore provvede a ricordare al 
giocatore quali sono le mosse con¬ 
sentite e a quali tasti sono associate. 
Il giocatore può, innanzi tutto, 
“passare” la propria mossa (Q). In 
questo caso, però, la nave procede di 
una unità video nella direzione della 
sua flotta attuale ed è quindi sogget¬ 
ta alle normali evenienze del gio^o; 
può cioè arenarsi o incagliarsi (solo 
per le fregate francesi) o entrare nel 
tiro delle artiglierie del forte (solo 
per le navi inglesi) o entrare in con¬ 
tatto balistico con una nave avversa¬ 
ria. Quest’ultimo caso si presenta, 
quando lo spostamento porta la na¬ 
ve ad avere una nave avversaria che 
non si sia precedentemente arresa in 
una Z.O.C. (Zone of Control, zona 
di controllo) pari a un quadrato di 
lato tre unità video, centrato nella 
nave in questione, a patto che le rot¬ 
te delle due navi non siano perpendi¬ 
colari; ciò per ragioni di congruenza 
storica, poiché le navi a vela non 
portavano che pochi pezzi “in cac¬ 
cia”, vale a dire a prua della nave, e 
tutti gli scontri avvenivano fra va¬ 
scelli su rotte parallele o leggermen¬ 
te convergenti. 

Ovviamente il calcolatore provve¬ 
de ad evidenziare l’unità che viene, 
di volta in volta, presa in considera¬ 
zione, segnalandone la posizione in 
modalità inversa, oltre a segnarne la 
rotta attuale ed il nome che le identi¬ 
fica. A tale proposito, sono costret¬ 
to a rammaricarmi per l’incomple¬ 
tezza delle mie fonti, che non mi ha 
consentito di dare un nome ed un 
comandante ad ognuna delle navi. 
Quando è stato possibile, infatti le 
unità sono state identificate, secon¬ 
do l’uso della marina a vela inglese, 
con il nome ed il grado e cognome 
del comandante (cosi la prima nave 
dello schieramento inglese è la “Go- 
liath - Captain Foley” e la terzulti¬ 
ma dello schieramento francese la 
“Guillame Teli - Capitaine Ville- 
neuve”), tranne che per l’ammira¬ 
glia francese (“L’Orient - Amirai 
Brueys”), il cui capitano di bandiera 
(ma sotto il controllo dell’ammira¬ 
glio francese) era il capitano Casa¬ 


bianca; in alcuni casi, invece la nave 
è indicata con il suo solo nome e, in, 
purtroppo, parecchi casi in cui non 
avevo dati a disposizione, con un 
numero d’ordine ed il tipo della na¬ 
ve (ad esempio “Dueponti inglese n. 
6” o “Fregata francese n. 14”). 

Il colore di fondo delle scritte 
identifica, come in Wei-ch’i, l’ap¬ 
partenenza dell’unità ad uno o a l’al¬ 
tro dei due schieramenti. Anche nel 
punteggio, che appare dopo ogni se¬ 
rie completa di mosse (cioè tutte le 
navi di entrambe le flotte), la flotta 
inglese sarà indicata dal punteggio 
in “reverse” e quella francese dal 
valore in modalità normale, la flotta 
controllata dall’utente viene indica¬ 
ta per prima. 

Una delle opzioni che il giocatore 
ha a disposizione con ogni mossa è 
quella di modificare la rotta della 
sua nave (R). È necessario, però, te¬ 
ner conto della rotta attuale del va¬ 
scello; non è infatti consentito fare 
virate brusche, ad angolo retto o a 
180°, poiché le rotte consentite(ven- 
gono introdotte tramite il tastierino 
numerico) sono quelle corrispon¬ 
denti alle direzioni cardinali ed alle 
direzioni intermedie principali 
(Sud-Ovest, Nord-Est ecc.) non so¬ 
no consentite virate superiori a 45°. 
Ciò significa che, se la vostra nave 
sta navigando per Sud, le alternative 
possibili, oltre a proseguire sulla 
rotta attuale sono rappresentate da 
una virata di 45° a babordo (rotta 
per Sud-Est) o a tribordo (rotta per 
Sud-Ovest). Premendo il tasto corri¬ 
spondente alla attuale posizione del¬ 
la nave (5), la nave si mette all’anco¬ 
ra, perdendo così il diritto al turno 
successivo, ma non per questo la 
possibilità di venire coinvolta in un 
duello di artiglierie e di aprire il fuo¬ 
co. 

Nel caso in cui si chieda una cor¬ 
rezione di rotta illegale la nave 
“prende a collo”, termine nautico 
che indica il caso in cui, per una 
errata manovra, le vele prendono il 
vento con la faccia anteriore, facen¬ 
do perdere al vascello l’abbrivio; an¬ 
che in questo caso la nave è costretta 
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a perdere il turno e a ritentare quindi 
la manovra. 

Ovviamente, di tutto ciò bisogna 
tenere conto quando ci si trova sotto 
costa, per evitare di andare ad are¬ 
narsi sui banchi di sabbia, o quando 
ci si vuole affiancare ad un vascello 
nemico per sparargli una bordata. 

Un’altra opzione disponibile (ta¬ 
sto S), consente di avere la situazio¬ 
ne completa dei danni della propria 
flotta. Per ogni nave viene segnalata 
insieme alla sua posizione ed ai dati 
che la riguardano, l’entità dei danni 
subiti nel caso in cui la nave sia stata 
sottoposta ad uno scontro a fuoco 
(l’entità di questi danni è espressa da 
una frazione in ragione del limite 
massimo dei danni che la nave può 
subire e dei colpi che le sono stati 
inferti, come vedremo nella parte 
tattica) - ad esempio, per un due- 
ponti, “ha subito danni per 23/60” 
-, oppure la sua attuale situazione: 
“si è arresa”, “è disalberata”, “non 
può governare”, “è sfuggita”, “è af¬ 
fondata”, “si è arenata" o (solo per 
le fregate) “si è incagliata”; o, sem¬ 
plicemente, “non ha subito danni”. 
Vedremo alcune delle voci suddette, 
ed il loro significato, nella parte 
“tattica” del gioco; abbiamo già vi¬ 
sto in che casi il vascello va conside¬ 
rato “arenato” o “incagliato”; vor¬ 
rei, qui, semplicemente precisare 
che una unità deve ritenersi “sfuggi¬ 
ta”, se esce dai limiti del campo di 
battaglia. 

La funzione ottenibile premendo 
il tasto V (e che dà il rapporto delle 
vedette sulle unità avversarie), si 
può in un certo senso considerare 
simmetrica rispetto all’opzione de¬ 
scritta nel paragrafo precedente. 

Anch’essa infatti segnala se le na¬ 
vi avversarie si sono arenate o arrese 
o se non sono in grado di governare, 
ma nel caso in cui non rientrino in 
nessuna delle voci sopra descritte, 
invece di segnalare l’entità dei danni 
subiti, che una vedetta, dall’alto del¬ 
la sua coffa, non sarebbe in grado di 
valutare con precisione, ne segnala 
la rotta, informazione, questa, assai 
utile per avvicinarsi ed attaccare l’u¬ 


nità nemica. 

Premendo il tasto X, infine, è pos¬ 
sibile salvare su nastro magnetico la 
situazione della partita in corso, per 
poterla riprendere in un momento 
successivo. Non per questo, si deve 
rinunciare a proseguire immediata¬ 
mente la partita; a richiesta dell’u¬ 
tente, dopo aver salvato i file neces¬ 
sari, si può proseguire indisturbati 
verso la più severa delle sconfitte, 
sicuri di poter riprendere la partita 
da un punto in cui la propria situa¬ 
zione non era ancora compromessa. 

Il calcolatore provvede autono¬ 
mamente a far rispettare le regole 
per gli spostamenti strategici; una 
nave non ha diritto a muovere nei 
seguenti casi: 

a) Nei casi in cui sia da considerarsi 
“fuori gioco”, ovviamente, cioè se è 
sfuggita o affondata. 

b) Se si è arenata o incagliata o se si è 
arresa in uno scontro precedente. 

c) Se salta un turno perché all’anco¬ 
ra o perché ha preso “a collo”. 

d) Se in uno scontro precedente è 
stata disalberata (in questo caso non 
si muove dalla posizione che occu¬ 
pava al momento dello scontro). 

e) Se non può governare a causa dei 
danni subiti. In questo caso la nave 
non sta però ferma ma procede per 
la rotta che aveva prima dello scon¬ 
tro, senza alcuna possibilità di mo¬ 
dificare la propria situazione: può 
essere coinvolta in ulteriori duelli di 
artiglieria, ma non può evitare le 
secche o anche la altre navi, sia ami¬ 
che che avversarie. 

Da notare che, nel caso in cui due 
navi si speronino, i danni di ognuno 
sono proporzionali alla propria 
stazza ed a quella dell’altra nave, e, 
nel caso in cui una delle due, o en¬ 
trambe, abbiano già subito altri 
danni, può anche portare all’affon¬ 
damento. 


Tattica 

Nel caso in cui si siano verificate 
le condizipni che portano ad uno 
scontro a fuoco, il calcolatore prov¬ 


vede ad annullare la pagina “strate¬ 
gica”, passando a quella tattica. 

Su di un mare liscio come l’olio 
(come in effetti fu, nelle acque ripa¬ 
rate della baia, nel corso di tutta la 
battaglia), compariranno le sil¬ 
houette dei due'vascelli. Per ragioni 
di ordine pratico le due navi appaio¬ 
no come se navigassero su rotte pa¬ 
rallele anche nel caso in cui si trovi¬ 
no su rotte leggermente convergenti; 
il computer provvede però a rappre¬ 
sentare la nave avversaria come vi¬ 
sta da prua o da poppa a seconda del 
caso in cui navighi nello stesso verso 
o in senso opposto rispetto al vostro 
vascello, che appare sempre come 
visto da prua. Nel caso in cui uno dei 
due contendenti si trovi a controlla¬ 
re la batteria francese sull’isola di 
Abukir, al posto del profilo di un 
vascello apparirà un castelletto, 
completo di bandiera, arroccato su 
di uno scoglio roccioso. 

Le navi, sono, ovviamente, pro¬ 
porzionate al loro tipo - le fregate 
appaiono come dotate di un solo 
ponte e di due ordini di vele - con i 
portelli aperti ben in evidenza, men¬ 
tre poppa e prua possono essere di¬ 
stinte, rispettivamente, per la pre¬ 
senza dello specchio di poppa o del¬ 
l’asta di bompresso, oltre che, natu¬ 
ralmente, per l’inferitura delle vele. 

Le navi inglesi (come detto, tutte 
dueponti) hanno scafi bianchi e nes¬ 
suna fiamma sull’albero di maestra, 
mentre le navi francesi hanno scafi 
neri ed il tricolore rivoluzionario in 
testa d’albero. La nave controllata 
dal giocatore apparirà, sempre, alla 
sinistra del video, mentre alla destra 
apparirà quella controllata dal com¬ 
puter; ciò indipendentemente dalla 
loro posizione relativa e dalla loro 
appartenenza ad una o l’altra delle 
due flotte. I nomi delle due navi (con 
le regole sopra citate per quanto ri¬ 
guarda sia forma che colore delle 
scritte) appariranno su due righe 
successive, prima quello della nave 
controllata dal giocatore, accostato 
a sinistra, poi quello del vascello av¬ 
versario, accostato a destra; nelle ri¬ 
ghe successive, all’altezza della nave 
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da voi controllata appariranno i va¬ 
lori dell’alzo e della carica per i can¬ 
noni di babordo del vostro vascello. 

I tasti che permettono di controllare 
questi due valori fanno parte del ta- 
stierino numerico e sono, per la pre¬ 
cisione: 

4 — Per aumentare l’alzo (valore 
massimo 45°, dopo di che il tiro da 
diretto diventerebbe indiretto, ma 
con valori di gittata ottenibili anche 
con alzi inferiori ai 45°). Da notare 
che, al raggiungimento del limite su¬ 
periore, l’alzo passa al valore mini¬ 
mo. 

5 — Per diminuire l’alzo (valore 
minimo 1°, poiché 0° avrebbe dato 
dei problemi di congruenza nell’e¬ 
spressione matematica per il calcolo 
della traiettoria). Sono valide tutte 
le considerazioni fatte per il caso 
precedente; lo scarto minimo è di un 
grado. 

N.B. — So che in artiglieria non si 
utilizzano i gradi sessagesimali, vale 
a dire quel sistema in cui l’angolo 
retto misura 90° e ha sottomultipli 
del grado (primi e secondi) di ses¬ 
santa in sessanta, bensi i gradi cente¬ 
simali - sistema in cui l’angolo retto 
è pari a 100 gradi centesimali -; ma, a 
parte il fatto che non ho idea di 
quante persone, al di fuori delle For¬ 
ze Armate, abbiano confidenza con 
questo sistema, non disponevo delle 
funzioni trigonometriche relative. 

1 — Per aumentare la carica (la 
carica massima è rappresentata dal¬ 
l’unità, frazioni successive, fino ad 
un minimo di mezza carica, hanno 
valori inferiori di un decimo). Que¬ 
sto valore è stato introdotto per po¬ 
ter controllare la velocità d’uscita 
del proiettile e quindi la lunghezza 
del tiro a parità di alzo, l’idea è stata 
presa dal sistema in voga nella mari¬ 
na a vela inglese, che aveva in dota¬ 
zione, oltre alla polvere da sparo 
sfusa, anche cariche confezionate da 
una, mezza o un quarto di carica, in 
modo da poter dosare l’esplosivo. 

2 — Per diminuire la carica. Val¬ 
gono per la carica le considerazioni 
fatte per l’alzo, circa la contiguità 
dei valori minimo e massimo, in mo- 
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do da consentire uno scrolling com¬ 
pleto e rapido alla ricerca dei valori 
desiderati. 

0 — Per fare fuoco. Quando si 
ritiene che i valori dell’alzo e della 
carica, siano quelli voluti - e a patto 
che non si abbia già una bordata in 
volo - si può fare fuoco; questa limi¬ 
tazione è stata posta, per impedire di 
tenere un ritmo di fuoco troppo al¬ 
to, e perciò scarsamente realistico (i 
cannonieri dell’epoca dovevano in¬ 
fatti alare a braccia i cannoni fino a 
che le volate non fossero compieta- 
mente all’interno dell’opera morta e 
quindi scovolarli e ricarli dopo ogni 
bordata). 

Nel momento stesso in cui farete 
fuoco (attenzione a premere bene i 
tasti voluti, poiché vengono raccolti 
con una PEEK, non con una GET), 
apparirà, lungo la fiancata della vo¬ 
stra nave, uno sbuffo di fumo e, 
quindi la palla di cannone, che ini¬ 
zierà a seguire la sua traiettoria in 
base ai dati da voi introdotti ed a 
quelli legati al tipo della nave. 

Quest’ultimi riguardano la veloci¬ 
tà di uscita del proiettile, legata, co¬ 
me detto alla carica, ma anche alle 
sue dimensioni; a questo scopo si è 
assunto che la velocità di uscita dei 
proiettili è pari a 100 metri al secon¬ 
do per ognuno dei ponti della nave 
(per cui una fregata spara proiettili 
con una velocità iniziale di 100 
m/sec., un dueponti 200 e l’ammira¬ 
glia francese 300 m/sec.), questo nel 
caso in cui la carica sia pari a 1, 
ovviamente valori proporzional¬ 
mente inferiori si ottengono con fra¬ 
zioni di carica. Le palle di cannone 
delle due navi si distinguono per il 
loro colore, nero per le francesi e 
bianco per le inglesi. 

Il tiro prosegue fino a che non si 
presenta uno dei seguenti casi: 

a) Il tiro risulta troppo corto e la 
palla finisce in acqua. In questo caso 
si alza una colonna d’acqua dove il 
colpo è caduto e si può far partire 
una nuova bordata. 

b) Le due palle, nelle rispettive tra¬ 
iettorie, si incontrano in uno stesso 
punto-video. Quella delle due che ha 


colpito l’altra si disintegra e l’autore 
della bordata può spararne un’altra. 

c) La palla esce dai limiti dello scher¬ 
mo, o superiormente o oltre la nave 
avversaria senza averla però colpita. 
Subito dopo la sua scomparsa è pos¬ 
sibile far di nuovo fuoco. 

d) Il colpo va a segno. In questo caso 
comparirà sullo schermo, in corri¬ 
spondenza del punto colpito un ca¬ 
rattere che, nel caso dello scafo, del¬ 
l’alberatura e delle parti estreme del¬ 
le vele è una croce di S. Andrea (do¬ 
vrebbe rappresentare le schegge di 
legno spezzate); mentre, se il colpo 
colpisce di netto le vele, in corri¬ 
spondenza apparirà un buco. Dopo 
di che si può far partire un’altro col¬ 
po. 

Ovviamente l’efficacia dei colpi è 
funzione del loro peso (e quindi del¬ 
la nave che li fa partire, navi più 
grossa avranno armamenti più po¬ 
tenti), ed anche del punto che si col¬ 
pisce. I valori, cui va aggiunta una 
frazione decimale “random” per 
rendere il gioco più vivace, sono in 
ragione di 1 punto per ogni ponte 
della nave che ha fatto fuoco, nel 
caso in cui si colpisca l’alberatura o 
le vele; e di tre punti - sempre per 
ogni ponte se si colpisce lo scafo; per 
cui un colpo a segno di una fregata 
all’attrezzatura di un dueponti in¬ 
glese vale un solo punto, un colpo 
allo scafo da parte di un dueponti 
vale 6 punti ed uno de “L’Orient” 
addirittura 9. 

Lo scontro prosegue fino a che 
non si verifica una delle seguenti 
evenienze: 

a) Una delle navi si arrende(in gene¬ 
re per evitare di essere affondata e se 
non ha speranze residue di affonda¬ 
re l’avversaria). Il giocatore può far¬ 
lo premendo il tasto “?”, nel qual 
caso apparirà in testa l’albero alla 
sua nave una bandiera bianca. Ve¬ 
dremo poi come, a volte, risulti più 
conveniente la resa. 

b) Entrambe le navi esauriscono i 
colpi (venti a testa per ogni ponte). 
Capita molto raramente (che io ri¬ 
cordi una sola volta); comunque in 
scontri successivi la nave recupera la 



k 


»pr Abiikir 1798 
HpP" battaglia navale 
1 He _per CBM 

sua dotazione di colpi (sulle navi era 
compito deU’armaiolo confezionare 
nuove cariche se necessario), 
c) Una delle navi viene affondata. 
Perché ciò avvenga l’avversario (o 
più avversari, se ha partecipato a più 
scontri), deve averle inferto un nu¬ 
mero di colpi tale che, per gravità, 
essi superino il bonus a disposizione 
della nave. Questo bonus è fissato, 
come al solito, in base all’indice più 
immediato della stazza della nave, 
vale a dire il numero dei suoi ponti; 
e, per essere più precisi, in ragione di 
venti punti per ogni ponte (20 per 
una fregata, 40 per un dueponti, 60 
per un treponti), indipendentemente 
da dove essi vengono inferti. Ovvia¬ 
mente, a causa della parte decimale 
“random”, non è possibile precisare 
esattamente quanti colpi siano stret¬ 
tamente necessari per affondare 


ogni nave di ciascun tipo. 

Esistono però altre possibilità: 

a) Una delle navi (o anche entram¬ 
be) riceve una quantità di colpi al¬ 
l’alberatura la cui gravità è pari o 
superiore alla metà dei colpi suffi¬ 
cienti per affondarla; in questo caso 
la nave, nel corso dello scontro, vie¬ 
ne disalberata (al posto dell’albera¬ 
tura crollata, viene fornito un albero 
di fortuna) e, se sopravvive allo 
scontro, non può più abbandonare 
la posizione che occupava prima del 
duello. 

b) Una delle due navi sopravvive 
allo scontro ma dopo aver subito 
danni pari o superiore ai nove deci¬ 
mi di quelli necessari al suo affonda¬ 
mento, in questo caso la nave non è 
più in grado di governare ed è co¬ 
stretta a proseguire sulla rotta che 
aveva prima dello scontro, con tutto 


ciò che la cosa comporta (probabili¬ 
tà di arenarsi od urtare altre navi, la 
qual cosa porterebbe, molto proba¬ 
bilmente, al suo affondamento). 

N.B. — Ovviamente le navi disal¬ 
berate o non in grado di governare 
non perdono il diritto di sparare e di 
farsi sparare addosso come tutte le 
altre! 

Nel caso della batteria francese 
sull’isola non si può parlare di af¬ 
fondamento o disalberamento e, 
tantomeno, di impossibilità di go¬ 
vernare, i colpi inferti sull’isola, ov¬ 
viamente, non hanno alcun valore, 
mentre quelli che colpiscono il forte 
hanno coefficienti di efficacia pari a 
quelli allo scafo di una nave (cioè 3; 
poiché le navi inglesi sono tutte dei 
dueponti, e solo gli inglesi sono sog¬ 
getti al tiro della batteria, ogni colpo 
di una nave inglese che colpisce il 
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forte vale 3x2 = 6 punti), le schegge 
di pietra dei parapetti erano infatti 
altrettanto micidiali dei colpi stessi: 
mentre il peso dei colpi sparati dalle 
batterie del forte è di 5 (come se il 
forte fosse cioè un ipotetico masto¬ 
donte a cinque ponti), le batterie a 
terra, infatti, sparavano general¬ 
mente a colpi arroventati in una for¬ 
nace, in modo da incendiare il legna¬ 
me di cui le navi a vela erano fatte; 
per cui, in genere, quattro o cinque 
colpi all’alberatura (5 punti certi, 
più il fattore casuale), bastano a di¬ 
salberare un dueponti; ed un paio di 
colpi allo scafo (15 punti!) in più ad 
affondarlo. Con queste premesse, è 
abbastanza naturale affermare che è 
necessario fare molta attenzione a 
non capitare a tiro della batteria 
francese e, se dovesse succedere, è 
conveniente arrendersi subito. 

Come gioca il calcolatore 


Come detto, il computer utilizza 
una routine molto più rapida che in 
’14-’18, grazie anche al fatto che in 
Abukir 1798, sono presenti meno 
opzioni disponibili ad ogni mossa. 
In pratica i meccanismi di compor¬ 
tamento sono per entrambe le sezio¬ 
ni in cui il gioco è suddiviso, assai 
semplici. Le prestazioni del calcola¬ 
tore sono molto buone dal punto di 
vista strategico mentre appena di¬ 
screte per quanto riguarda l’aspetto 
tattico. 

Nel primo caso il computer deve 
provvedere a gestire il cambiamento 
| di rotta o la permanenza sulla rotta 
1 attuale. Nel caso in cui controlli la 
flotta inglese dovrà, ovviamente, 
badare a non portarsi a tiro delle 
micidiali batterie a terra. Per en¬ 
trambe le flotte, invece, si tratterà di 
evitare speronamenti di navi ami¬ 
che, arenamenti e, ovviamente gli 
scontri con vascelli le cui condizioni 
sono migliori delle proprie o, a pari¬ 
tà di condizioni, le cui dimensioni 
siano maggiori. Ciò fa si che anche 
una semplice fregata può attaccare 
un dueponti, se quest’ultimo è suffi- 
i cientemente danneggiato da far pen¬ 
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sare che qualche colpo ben piazzato 
possa farlo affondare (tra l’altro le 
piccole fregate sono ingannevol¬ 
mente difficili da colpire!). 

Da un punto di vista tattico an¬ 
diamo un po’ meno bene; il mecca¬ 
nismo di determinazione dell’alzo e 
della carica verrà descritto nei RE- 
Marks, ciò che qui conta sottolinea¬ 
re è che, ovviamente, il calcolatore è 
in grado di calcolare esattamente la 
traiettoria dei proiettili, condizione 
prima, quest’ultima, per poter far 
fuoco con la massima precisione; i 
problemi derivano dai meccanismi 
di casualità che si applicano sia ai 
cannoni controllati dal calcolatore, 
sia a quelli controllati dal giocatore. 
Questi meccanismi, tendono ad 
esprimere le imperfezioni delle armi 
dell’epoca (le irregolarità nelle ani¬ 
me dei cannoni, la non perfetta sferi¬ 
cità dei colpi ecc.) oltre agli errori 
umani, presenti in ogni epoca. Ciò 
fa si che le percentuali di tiro del 
computer siano leggermente inferio¬ 
ri a quelle di un giocatore ben alle¬ 
nato (per esempio... mio fratello); in 
sintesi il computer tende a colpire un 
po’ troppo spesso le vele (pochi pun¬ 
ti!) e non è esente da errori (colpi 
corti in acqua). 

Nel corso degli scontri, inoltre, il 
computer ha messo in luce una pre¬ 
occupante mancanza di combattivi¬ 
tà, che lo portava ad arrendersi non 
appena era ad un passo dall’affon¬ 
damento e nell’assoluta impossibili¬ 
tà di riuscire ad affondare per primo 
l’avversario, ciò a causa del fatto 
che, in base alle condizioni di vitto¬ 
ria stabilite per il gioco, è più conve¬ 
niente avere una nave danneggiata 
che si arrende al nemico che una 
nave di coraggiosi testardi in fondo 
alla baia di Abukir. 

Le condizioni di vittoria 

Le condizioni di vittoria sono de¬ 
terminate in base alla situazione di 
tutte le unità che compongono le 
due flotte. Ovviamente il peso mag¬ 
giore è dato dalle navi che si è riusci¬ 
ti ad affondare: si ottengono 30 pun¬ 
ti per ogni ponte delle navi che si è 
affondato (è per questo che, nell’e- 
sprimere i danni, essi vengono dati 
come frazioni di 30-esimi per le fre¬ 
gate, 60-esimi per i dueponti e 90- 
esimi per la nave ammiraglia france¬ 
se). A ciò va sommato il contributo 
dato dai danni subiti dalle navi che 


non sono affondate, e che sono 
quindi comprensivi di eventuali spc- 
ronamenti, arenamenti su banchi di 
sabbia ed incagliamenti, e l’eventua¬ 
le contributo, per la sola flotta fran¬ 
cese, dei danni subiti dal forte. 

È per questa ragione che può esse¬ 
re conveniente arrendersi: la resa di 
un dueponti poco prima di affonda¬ 
re può costare circa 35-38 punti - 
con più di quaranta affonderebbe-, 
ma la nave non può più essere coin¬ 
volta (a meno che non venga spero¬ 
nata!) c quindi si evitano i 60 punti 
dell’affondamento. 

Le navi sfuggite, cioè uscite dal 
campo di battaglia, non contano ai 
fini del punteggio e, quindi, a volte 
può essere conveniente anche darse¬ 
la a gambe. 

Il punteggio massimo acquisibile 
è di 720 punti per la flotta francese, e 
di 940 per quella inglese e le condi¬ 
zioni di vittoria sono state fissate di 
conseguenza: è possibile vincere se si 
supera per primi i cinquecento punti 
con almeno cento punti di vantaggio 
sull’avversario, o i seicento punti 
con almeno cinquanta di vantaggio, 
o, infine, se si supera per primi i 700 
punti. Oltre a queste condizioni di 
vittoria, si debbono aggiungere le 
logiche condizioni di terminazione: 
se una delle due flotte non ha più 
vascelli in ordine di combattimento, 
perché affondati o arenati o fuggiti 
od arresi, la partita ha ovviamente 
termine, ma non necessariamente 
con la vittoria dell’avversario, se in¬ 
fatti la flotta scomparsa ha inflitto 
all’avversario più danni di quanti nc 
abbia subiti (ad esempio perché 
molte delle navi si sono date alla 
fuga), essa può aggiudicarsi la parti¬ 
ta. 

Ultimi consigli 

Ai principianti, consiglierei di far 
patica controllando la più potente 
flotta francese, prima di azzardarsi 
ad affrontare con i soli dueponti in¬ 
glesi i cannoni de “L’Orient” e degli 
altri sedici vascelli francesi. Per 
quanto riguarda il comportamento 
tattico è ovviamente preferibile col¬ 
pire basso, allo scafo, anche corren¬ 
do qualche rischio di vedere i propri 
colpi finire in acqua, poiché è molto 
più redditizio. ■ 

(Contìnua) 

(Per ragioni di spazio pubblicheremo il lisi aio c i 
RF.Marks . w dia prossima pianala). 
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Strutture di controllo 
dei cicli 

e delle diramazioni 


a cura della Redazione 

Strutture di controllo dei cicli 

N el BASIC, ci sono due 
strutture di ramificazione 
e una struttura esplicita di 
ciclo. Le strutture di ramificazione 
sono IF...THEN...ELSE e ON N 
GOTO. Ecco alcuni esempi: 


100 i ■f a=^b then print "uguali" 
else print "diversi" 

200 i ■f a = -2 then n* 1 
210 if a=l' then n -2 
220 i f a=5 then 0=3 
230 rem 

240 on n.poto 300,400,500 


La struttura IF...THEN...ELSE 
dovrebbe essere nota a chiunque usi 
il BASIC, mentre la ON N GOTO 
non è impiegata largamente perché 
scomoda. Il GOTO è seguito da una 
lista di numeri di righe. Se la variabi¬ 
le (che qui chiamiamo N) ha il valore 
I, il primo numero di riga è la desti¬ 
nazione del salto. Se la variabile ha il 
valore 2, il secondo ecc. I diversi tipi 
di BASIC agiscono in vari modi nel 
caso in cui la variabile abbia un va¬ 
lore fuori dell’intervallo. Alcuni sal¬ 
tano alla riga seguente la riga ON N, 
altri al primo numero di riga dato; 
ecc. Consultate il vostro manuale di 
BASIC. La difficoltà qui consiste 
nella lista di dichiarazioni che deve 
precedere la ON N se il salto deve 
essere fatto secondo un certo insie¬ 
me di decisioni logiche. 

Nel Pascal, l’equivalente della di¬ 
chiarazione IF...THEN...ELSE è la 
dichiarazione IF...THEN...ELSE! 


D al BASIC 

—al Pascal— 


— Parte terza — 


Sì, sono identiche! O quasi. Il Pa¬ 
scal permette l’uso di dichiarazioni 
composte, come abbiamo già visto. 


IF Pt~~2 
THEN 
BEGIN 
P: ■ 17; 
Q:=é>9; 
END 
ELSE 
BEGIN 
P:=fcV; 
Q: = 1 7; 
END; 


Questo è un esempio semplifica¬ 
to, ma l’idea è chiara. Notate che la 
IF... THEN...ELSE è una dichia¬ 
razione unica, di cui entrambe le 
parti possono essere composte. E 
importante che non ci sia un punto 
e virgola dopo la parte THEN della 
dichiarazione, poiché la ELSE fa 
parte della stessa dichiarazione. 
All’interno della dichiarazione 
composta, però, i punto e virgola 
sono richiesti per separare le di¬ 
chiarazioni multiple. Notate che la 
parte ELSE è facoltativa così come 
io è nel BASIC. 

L’equivalente nel Pascal della 
ON N GOTO è la dichiarazione 
CASE. Questa struttura è nota co¬ 
me “salto ad N vie”. L’equivalente 
CASE dell’esempio BASIC di pri¬ 
ma è: 


CASE A OF 

-2:NEGATIVO; 
1 : UN ITA; 

2:GRANDE 
END; 


Gli identificatori NEGATIVO, 
UNITA’ e GRANDE sono delle 
procedure da eseguire in ognuno 
dei tre casi. Dopo l’esecuzione del¬ 
la procedura scelta, il programma 
continua alla riga dopo la dichiara¬ 
zione CASE. II Pascal standard 
non prevede la situazione “nessu¬ 
no di queste”. Se non è soddisfatta 


alcuna delle condizioni previste 
dalla dichiarazione CASE, il Pa¬ 
scal riporta un errore. Alcuni siste¬ 
mi hanno una clausola ELSE fa¬ 
coltativa alla fine della CASE per 
evitare gli errori. Altri sistemi usa¬ 
no la parola OTHERWISE (altri¬ 
menti). Se avete una versione stan¬ 
dard, l’unico modo di evitare un 
“system error message” che con¬ 
fonde completamente la persona 
che adopera il programma senza 
averlo scritto, è di controllare per 
vedere se una delle condizioni è 
soddisfatta e, se no, dare un mes¬ 
saggio di errore che ha senso per 
chi usa il programma. In questo 
caso, si potrebbe usare una dichia¬ 
razione IN per il controllo: 

IF A IN E-2,1,5] 

THEN 

BEGIN 

CASE A OF 

-2iNEGATIVO; 

1:UNITAj 
5:GRANDE 

END; 

ÉLSE 

WRITE<'MESSAGGIO DI ERRORE'); 


Il Pascal permette con l’istruzio¬ 
ne CASE la stessa flessibilità che 
permette con gli indici di una ma¬ 
trice. Funziona sia con variabili 
CHAR che con tipi scalari. Ed in 
effetti è molto utile con i tipi scala¬ 
ri, perché, sebbene una variabile 
del tipo GIORNO DELLA SETTI¬ 
MANA (GIORNO per esempio) 
possa assumere i valori DOM, 
LUN, MAR... (vedete l’esempio di 
prima), non è possibile usare una 
dichiarazione stampa come WRI- 
TE (GIORNO). Bisogna usare una 
dichiarazione CASE: 


CASE GIORNO OF 

LUN;WRITEI LUNEDI'); 

MAR s UIRI TE < ' MARTEDI ' ) ; 

MER;WRI TE('MERCOLEDI'>; 
GIO:WRITE('GIOVEDÌ'); 
VENs WRI TE( 'VENERDI'); 

SAB,DOM:WRI TE('WEEKEND') 
END; 
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Dal BASIC 
_al Pascal 


Un altro esempio con l’astensio¬ 
ne OTHERWISE disponibile in al¬ 
cuni Pascal: 

IF LETTERA IN C'A'..*Z“3 

THEN 
BLU IN 

LAUE LE r TER fIF 

A', E , 1,0', li : WR1 TE ( VOCALF ' ) ; 

' S ‘ , ' T ' , ’N 1 :WRITE < ’ FREQl JF.NTF ' ) 

END; 

OTHERWISE WRITE( ORDINARIA ); 

END: 

Notate che qui non è necessario 
chiamare una procedura. La con¬ 
dizione CASE può essere seguita 
da una dichiarazione, anche se 
composta. Quindi vedete, la di¬ 
chiarazione CASE è abbastanza 
potente nel Pascal. 

Il ciclo 

Il BASIC ha una struttura di 
controllo dei cicli. Non c’è bisogno 
che diamo qui un esempio di un 
ciclo FOR-NEXT. Il Pascal ha un 
equivalente quasi uguale: 

FOFi I : =1 10 IO L)U 
ARRAYCIJjfO 
FQR Nl = l TCI 15 DO 
BEGIN 

Rb Al VAL: -REALVAL +N/ tu; 

WRI TE < REALVAL) 

END; 

Notate che non è richiesto alcun 
NEXT. La fine della frase segna la 
fine del ciclo. Questo naturalmente 
è possibile a causa della caratteri¬ 
stica del Pascal di permettere di¬ 
chiarazioni composte. Il Pascal 
non permette una specificazione 
STEP come il BASIC. Il motivo è 
che l’indice del ciclo è un numero 
intero, il che rende impossibili i 
valori frazionari. Un ciclo con un 
passo diverso dall'unità si fa me¬ 
glio in un altro modo, a causa del¬ 
l’inesattezza di somme e differenze 
ripetute nella matematica a virgola 
mobile. 

Lo si può fare in un ciclo FOR- 
DO (e questa è una pratica miglio¬ 


re anche nel BASIC), secondo lo 
schema mostrato nell’esempio. Il 
Pascal può fare i passi anche all’in- 
dietro, cioè può usare un passo di 
un’unità negativa, usando la paro¬ 
la DOWNTO anziché TO. Per 
esempio: 

FOR K: = 10 DOWNTO 1 DO... 

I numeri negativi interi sono 
permessi come indici ma non come 
numeri reali. La variabile indice 
deve essere stata dichiarata prima. 
Sebbene non siano permessi indici 
reali, sono permessi altri tipi di in¬ 
dici, precisamente CHAR e scalari. 

EUR GIORNO: =LUN TO DON DO... 

FOR LETTERA;=A‘ TO 'B' DO... 

Il Pascal ha di più 

Qui di nuovo, vedete più flessibi¬ 
lità, alle spese di maggior comples¬ 
sità. Nel Pascal, sono permessi altri 
due tipi di strutture di ciclo. Il BA¬ 
SIC non ha qualcosa di diretta- 
mente paragonabile, ma le seguen¬ 
ti strutture possono essere simulate 
per mezzo di una dichiarazione 
GOTO nel BASIC. Queste struttu¬ 
re sono la WHILE-DO, e la 
REPEAT-UNTIL. 

WHILE A<B DO 
BEGIN 

A: *A+0.15; 

END; 

REPEAT 

A : =»A+0. 15; 

UNTIL A>=B; 


C’è una differenza fra le due. 
Nella struttura WHILE-DO, si 
controlla la condizione all’inizio 
del ciclo. Se essa è già soddisfatta, 
il ciclo non viene eseguito (neanche 
una volta) e l’esecuzione continua 
dopo il ciclo. Nella struttura 


REPEAT-UNTIL, d’altra parte, il 
ciclo si esegue prima che la condi¬ 
zione venga controllata. Anche se 
la condizione è vera prima di arri¬ 
vare al ciclo, le istruzioni nel ciclo 
sono eseguite almeno una volta. La 
differenza è sottile, ma utile. Per 
divertirci, ecco come si farebbe la 
stessa cosa nel BASIC: 

IrtQ it d h then Ilo else 200 

110 lem istruziom 

120 15 

1 1-0 qoto 100 

200 rem il programma continua qui 


ÌOO rem istruzioni 
110 a=a+.15 

120 ìf a>“ then 200 else 100 
200 rem il programma continua qui 


Questo è il primo esempio di co¬ 
me si impara il BASIC con il Pascal. 
Abbiamo visto un paio di strutture 
utili nel Pascal e mostrato come si¬ 
mularle nel BASIC. 

Notate che in tutti gli esempi so¬ 
pracitati, è estremamente importan¬ 
te che la condizione controllata nel 
ciclo venga modificata in qualche 
punto all’interno del ciclo in modo 
che prima o poi diventi vera. 

(L’eccezione esiste se fate andare 
il Pascal su un computer che permet¬ 
te l’esecuzione parallela). 


WHILE A<>B DO 
REGIN 

A:«A-M; 
(ISTRUZIONI) 
END; 


Questo ciclo si compie 32766 vol¬ 
te e poi dà un messaggio di INTE- 
GER OVERFLOW se all’inizio si 
hanno B = 1 e A = 2. Se B = 1,5 
all’inizio (che potrebbe succedere 
solo se fosse reale), il ciclo continua 
per sempre. 
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mpariamo il 
macchina con il 

— Parte prima — 


linguaggio 
VIC e C 64 


Prima puntata 
di una interessante 
serie di articoli 


di Alessandro Guida 


Parallelamente agli articoli riguar¬ 
danti il linguaggio macchina per 
ZX81 e Spectrum, che come è noto 
utilizzano microprocessore Z80, ci 
sembra giusto parlare anche del mi- 
cro 6502 molto diffuso, e adottato, 
oltre che dai prodotti di casa Commo¬ 
dore anche da altri popolari personal, 
primo fra tutti Apple 11. 


Introduzione 

intenzione di questa serie 
i di articoli è insegnare in 
A maniera semplice, gli ele¬ 
menti più importanti della program¬ 
mazione in linguaggio macchina. 

Seguiremo una strada abbastanza 
insolita. Useremo, fin dove è possi¬ 
bile, il BASIC per facilitare l’ap¬ 
prendimento dei principi fonda- 
mentali. Questo perché, essendo il 
BASIC un linguaggio ad alto livello, 
permette una programmazione di ti¬ 
po più descrittiva che non il veloce, 
ma estremamente sintetico, linguag¬ 
gio macchina. Daremo, quindi, per 
scontata la vostra conoscenza del 
BASIC e procederemo per gradi dal 
linguaggio più evoluto al linguaggio 
proprio del computer. 


Perché il linguaggio macchina 

Il pregio fondamentale del lin¬ 
guaggio macchina è senz’altro la sua 
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Figura 1. Esempio di conversione 
binario decimale. 


velocità. Si possono ottenere incre¬ 
menti di velocità tra un’operazione 
svolta in BASIC e la stessa scritta in 
linguaggio macchina, anche supe¬ 
riori alle 100 volte. Inoltre ci sono 
casi in cui la programmazione in As¬ 
sembler (lo strumento che consente 
di programmare il computer in lin¬ 
guaggio macchina) è più agevole, o 
addirittura indispensabile. Ne ve¬ 
dremo diversi esempi. 


Cos’è il linguaggio macchina 

Finora avete programmato il vo¬ 
stro computer in un linguaggio che è 
chiamato BASIC. Probabilmente 
sapete anche che all’interno del vo¬ 
stro computer c’è un microproces¬ 
sore (il circuito integrato che esegue 
le varie operazioni programmate) 
che per il VIC ha la sigla 6502 men¬ 
tre per il 64 la sigla 6510. Quello che 
invece vi stupirà è che le due cose, il 
BASIC e il Microprocessore, sono 
incompatibili uno con l’altro. Ossia, 
il BASIC (così come lo battete da 
tastiera) non sa come parlare al mi¬ 
croprocessore, e quest’ultimo non 
capisce quello che gli viene comuni¬ 


cato in BASIC. In pratica sono co¬ 
me due stranieri che parlano lingue 
diverse. Il problema è che il 6502 
(6510) è in grado di ricevere ed ese¬ 
guire solo istruzioni in linguaggio 
macchina. 

Queste istruzioni sono formate da 
un codice, che altro non è che un 
numero compreso tra 0 e 255. Te¬ 
nendo conto del fatto che alcuni co¬ 
dici non corrispondono ad alcun co¬ 
mando si vede che le operazioni che 
il microprocessore è in grado di 
svolgere da solo sono molto poche 
(circa 150). Inoltre, queste operazio¬ 
ni, che in seguito descriveremo, una 
per una, sono molto semplici e nulla 
hanno a che vedere con gli statement 
a volte complessi del BASIC. Perciò 
il BASIC è dotato di un “interprete” 
che traduce ogni singolo comando 
BASIC in una serie di istruzioni in 
linguaggio macchina. Quindi, ogni 
volta che viene incontrato un certo 
statement (comando BASIC) que¬ 
sto viene confrontato con una lista 
di comandi che l’interprete è in gra¬ 
do di capire e di conseguenza inter¬ 
pretato e, poi, eseguito. 

Se provate a pensare che questo 
iter è seguito ogni volta, anche se si 
tratta sempre dello stesso comando, 
capirete il perché della lentezza del 
BASIC, e il motivo per cui conviene 
scrivere le routine più impegnative 
di un programma in linguaggio 
macchina. 

Prima di andare avanti, voglio 
sottolineare che anche se il micro- 
processore del VIC (6502) e quello 
del 64 (6510) hanno sigle diverse ai 
fini della programmazione sono as¬ 
solutamente identici. Quindi, d’ora 
in avanti, ci riferiremo solo al 6502 
ben sapendo che quanto verrà detto 
sarà valido anche per il 6510. 

Date queste piccole premesse pos¬ 
siamo incominciare lo studio del lin¬ 
guaggio del microprocessore 6502. 

















Impariamo 
il linguaggio macchina 
con il VIC e C 64 


Deci mal e 

Binari o 

Decimale 

Binario 

0 

00900000 

32 

00100000 

1 

00000001 

33 

00100001 

*> 

<_ 

00000010 

= 

- 

Q 

00000011 

= 

= 

4 

00000100 

63 

00111111 

5 

00000101 

64 

01000000 

6 

00000110 

65 

01000001 

7 

00000111 

= 

= 

8 

00001000 

= 

= 

9 

0 0 0 0 1 0 01 

127 

01111111 

10 

00001010 

128 

10000000 

11 

00001011 

129 

10000001 

12 

00001100 

= 

- 

\ o. 

x U 

00001101 

= 

- 

14 

00001110 

= 

= 

15 

00001111 

253 

11111100 

15 

00010000 

254 

1 mino 

17 

00010001 

255 

11111111 

31 

00011111 




Figura 2. Tabella dei numeri binari minori di 255. 


La notazione binaria 

Poiché il nostro microprocessore 
è nato per trattare dei numeri è giu¬ 
sto vedere, subito, in quale forma 
sono rappresentati al suo interno. 

La rappresentazione dei numeri 
da noi normalmente utilizzata è det¬ 
ta decimale poiché si tratta di un 
tipo di numerazione in base 10 in cui 
ogni cifra può assumere un valore 
da 0 a 9. 

In altre parole un numero come 
1532 lo possiamo scrivere come: 

1 xIO 3 + 5xl0 2 -I- 3xl0‘ + 2x10°. 

E infatti avremo 1x1000 + 5x100 
+ 3x10 + 2x1 = 1532. 

La notazione binaria, invece, è in 
base 2. Ciò vuol dire che ogni cifra è 
moltiplicata per una potenza di 2 e 
può assumere come valore solo 0 o 
1 . 


Ad esempio il numero 133 sarà 
rappresentato come: 

1x2 7+0x2 6+0x2 5+0x2 4+0x2 
3+1x2 2+0x2 1 + 1x2 0. 

Così 00000001 in binario equivale 
a 1 in decimale, 00000010 equivale a 
2, 00000011 è uguale a 3 e così via. 

In pratica per trasformare un nu¬ 
mero binario in decimale sarà suffi¬ 
ciente sommare il valore delle cifre 
in cui compare l’uno tenendo pre¬ 
sente che tali valori sono le corri¬ 
spondenti potenze di 2, quindi 
ognuno sarà il doppio del preceden¬ 
te (da destra a sinistra). 

Gli esempi che abbiamo portato 
non a caso utilizzano le potenze di 2 
da 0 a 7. Infatti i dati in ingresso o 
uscita dal microprocessore possono 
avere come valore massimo 255, 
cioè 11111111 in binario. 

Importante : un numero, compre¬ 
so tra 0 e 255, utilizzato dal 6502 è 


Deci mal e 

Binari o 

+ 127 

01111111 

+ 126 

01111110 

+ 64 

01000000 

+ 63 

00111111 

+ 32 

00100000 

+ 31 

00011111 

+ 16 

00010000 

+ 15 

00001111 

+ 8 

00001000 

+ 7 

00000111 

+ 4 

00000100 

+ 3 

00000011 

+ 2 

00000010 

+ 1 

00000001 

0 

00000000 

-1 

11111111 

-2 

11111110 

-3 

11111101 

-4 

11111100 

-8 

11111000 

-9 

linoni 

-16 

11110000 

-17 

inolili 

-32 

11100000 

-33 

nonni 

-64 

11000000 

-65 

10111111 

-127 

10000001 

-128 

10000000 


Figura 3'. Tabella dei numeri binari 
relativi in complemento a 2. 


detto byte. Ognuna delle otto cifre 
che compongono un byte si dice bit. 
Questi bit sono numerati secondo le 
corrispondenti potenze di 2, vanno 
cioè dal bit 0 al bit 7. 

Riassumente: il computer può ge¬ 
stire numeri, detti byte, formati da 8 
bit. Questo limita il campo a valori 
compresi tra 0 e 255, in decimale. 
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il linguaggio macchina 
con il VIC e C 64_ 


Deci male 

Esadecimale 

Decimale 

Esadecimale 

0 

0 

1 i-. 

J V ■' 

1 0 


1 

O O 

2 0 

= 


4 8 

30 

T 

= 

64 

40 

8 

8 

3 0 

50 

9 

9 

96 

60 

i n 

X v 

A 

= 

= 

11 

B 

= 

= 

12 

c 

160 

AO 

13 

0 

= 


14 

E 

= 

= 

15 

F 

240 

F0 


Figura 4. Tabella di conversione da decimale ad esadecimale. 


Ogni bit può essere uguale a 1 o 0. 
L’uno è detto stato alto, lo zero sta¬ 
to basso. Il bit 0 è il primo a destra 
ed è detto LSB (bit meno significati¬ 
vo), il bit 7 è il primo a sinistra ed è 
chiamato MSB (bit più significati¬ 
vo). 

Stabilito ciò, il successivo passo 
da compiere è definire l’operazione 
più importante: l’addizione. 

Per sommare due numeri binari ci 
si comporta come facciamo normal¬ 
mente nel sistema decimale. Quindi, 
si sommeranno le cifre (i bit) corri¬ 
spondenti dei due numeri, tenendo 
presente che il valore più alto am¬ 
messo è uno. 

Abbiamo, cioè, quattro possibilità: 

0 + 0 = 0 
1 + 0=1 
0+1 = 1 

1 + 1 = 0 e riporto 1. 

Vediamo alcuni esempi di addizione: 

(9) 00001001 + 

( 2 ) 00000010 = 

00001011 (8+4+2=11 

risultato esatto) 

(15)00001111 + 

(1)00000001= 


00010000(16 risultato esatto) 


N.B. Da notare in questo esempio il 
riporto dal bit 0 al 1, al 2 fino al 4 
Un ultimo esempio: 

(129) 10000001 + 

( 1 ) 00000001 = 


10000010(128+2=130 
va bene) 

Consideriamo ora questo esempio: 

(130) 10000010 + 

(128) 10000000 = 

00000010(2 risultato errato) 

Il risultato atteso era 258. Quindi se 
la somma dei due numeri supera 255 
il risultato sarà errato. Per risolvere 
questo problema nel microproces¬ 
sore è inserito il flag C (Carry). Un 
flag è un registro ad un solo bit, che, 
quindi, può essere solo attivato (=1) 
o disattivato. 

Il flag C sarà posto uguale a 1 ogni 
volta che si avrà un riporto oltre 
l’ottavo bit. In pratica funziona co¬ 
me un nono bit. Riprendendo l’e¬ 
sempio avremo: 

(130) 10000010 + 

(128) 10000000 = 


C=1 00000010(256+2=258 

risultato esatto) 



Figura 5. Esempio di conversione 
esadecima/e-decima/e. 


Prima di proseguire, abbiamo biso¬ 
gno di una nuova definizione. Defi¬ 
niremo complemento di un bit il suo 
opposto. Quindi il complemento di 
1 sarà 0, e quello di 0 sarà 1. 

Finora abbiamo usato byte con 
valori positivi compresi tra 0 e 255. 
È invece auspicabile disporre anche 
di numeri negativi. Il sistema utiliz¬ 
zato dal 6502 per rappresentare i 
numeri minori di 0 e chiamato ‘com¬ 
plemento a due’. 

Infatti, se prendiamo un numero po¬ 
sitivo per ottenere il suo negativo 
dovremo complementare ogni bit e 
infine aggiungere 1. 

Se ad eempio vogliamo -67 in bina¬ 
rio scriveremo: 

01000011 (+67) 

10111100 (lo complementiamo) 
10111101 (aggiungiamo 1) 

Quindi la rappresentazione binaria 
di -67 è 10111101. 

La rappresentazione dei numeri ne¬ 
gativi appena vista, ha due grandi 
pregi. 

1 - Un numero negativo può essere 
facilmente riconoscibile dal bit 7 
uguale a 1. 

2 - Fornisce risultati esatti nella 
somma tra numeri relativi. 

Infatti: 

(18) 00010010 + 

(- 11 ) 11110101 = 


C=1 00000111 (4+3+1=7 

risultato esatto 

N.B. Per ora ignoriamo il carry. 
Sicuramente avrete già capito che 
questo è, anche, il metodo per sot¬ 
trarre due numeri. Cioè si somma al 
primo il complemento a due del se¬ 
condo. 
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Ancora un esempio, vogliamo cal¬ 
colare 24-36: 

(24) 00011000 + 

(-36) 11011100 = 


C=0 11110100 (—12 

risultato esatto) 

È facile capire che, in effetti, si tratta 
di un numero negativo poiché il bit 7 
è =1. Ma controlliamo che il suo 
valore assoluto sia davvero 12. 

11110100 (è il risultato negativo) 
00001011 (lo complementiamo) 
00001010 (togliamo 1) 

Abbiamo così il risultato in positi¬ 
vo: 12, come sperato. 

Ma nell’uso della rappresentazione 
in complemento 2 esiste un proble¬ 
ma. Osservate questo esempio: 

(64) 01000000 + 

(65) 01000001 = 


C=0 10000001 (-127 

risultato errato) 

Avremmo dovuto ottenere 129. Il 
problema nasce dal fatto che con 
l’introduzione dei numeri relativi il 
campo non va più da 0 a 255 ma da 
—128 a +127. Così se nella nostra 
somma si ha un riporto dal bit 6 al 
bit 7 si cadrà in errore, poiché il bit 7 
è il bit del segno. 

Un altro esempio: 

(- 63) 11000001 + 

(-125) 10000011 = 


C=1 01000100 (+68 

risultato errato) 

Ora si è avuto un riporto, ma il bit 7 
è stato lo stesso cambiato acciden¬ 
talmente, causando un risultato non 
esatto. 

Abbiamo quindi bisogno di un 
nuovo flag che ci indichi quando il 
bit 7 è stato variato per errore. 
Questo flag chiamato Overflow è già 
previsto all’interno del 6502, ha no¬ 


me V, e viene settato ogni volta che 
si ha un riporto dal bit 6 al 7 oppure 
dal bit 7 al carry. 

Ciò si verifica, in pratica, quando si 
eseguono operazioni tra numeri in 
valore assoluto molto grandi. 

Bisogna specificare che il flag di 
overflow non sempre indica un erro¬ 
re. Se, infatti, si svolgono elabora¬ 
zioni su numeri solo positivi il flag di 
overflow va ignorato non essendo 
condizione di errore il cambiamento 
del settimo bit. 

Vedremo che invece andrà control¬ 
lato il flag di carry. 

Spesso è necessario operare con 
numeri più grandi di 255 o fuori 
dall’intervallo +127, —128. In questi 
casi si possono utilizzare due o più 
byte consecutivi. 

Normalmente ne utilizzeremo 2. Il 
bit 0 del secondo byte diventerà così, 
il bit 8 dell’intero numero. 

Il secondo byte si dice (come per i 
bit) byte più significativo 
Poiché 2 elevato a 16 da 65536 con 
due byte avremo a disposizione tutti 
i numeri compresi tra 0 e 65535, o 
tra +32767 e -32768. 

Per esempio, il numero 1024 lo scri¬ 
veremo: 

00000100 00000000 

bit 15 8 7 0 

byte + sign. - sign. 

Nel trasformare un numero binario 
a 16 bit in decimale è sufficiente leg¬ 
gere il valore degli 8 bit più significa¬ 
tivi, moltiplicarlo per 256 e aggiun¬ 
gervi il valore degli altri 8. 

Un altro esempio, rappresentiamo il 
numero 15360: 

00111100 00000 


La numerazione esadecimale 

Naturalmente la rappresentazio¬ 
ne binaria ha il difetto di non essere 
per niente pratica. Soprattutto se 
usiamo numeri a 16 bit. Per ovviare, 
a questo inconveniente, general¬ 


mente si utilizza la notazione esade¬ 
cimale. Il numero binario viene divi¬ 
so in gruppi di 4 bit. Con 4 bit si 
coprono tutti i valori da 0 a 15(16 
numeri da cui il nome esadecimale). 


I primi 10 saranno le cifre da 0 a 9 
seguite dalle lettere da A a F. 

Ecco alcuni 

esempi: 


decimale 

67 


binario 

0100 

0011 

esadec. 

4 

3 

decimale 

161 


binario 

1010 

0001 

esadec. 

A 

1 

decimale 

255 


binario 

1111 

1111 

esadec. 

F 

F 

I gruppi di 4 bit si 

dicono nibble. 


Ogni nibble rappresenta una poten¬ 
za di 16. 

La conversione da esadecimale in 
decimale è altrettanto semplice: 

1A5F = 1x16 3+10x16 2+5x16 
1+15x16 0 = 1x4096 + 10x256 + 
5x16 + 15x1 = 6571. 

11 programma 

Spero che abbiate seguito fin qui, 
essendo queste premesse essenziali 
per la comprensione degli articoli 
futuri. Il listato 1 è un programmino 
che esegue le conversioni da decima¬ 
le, esadecimale o binario in una 
qualsiasi delle tre notazioni. Potete 
utilizzarlo anche per eseguire degli 
esercizi eseguendo le conversioni da 
voi e, poi, confrontando i vostri ri¬ 
sultati con la risposta del computer. 
Per l’uso è sufficiente introdurre il 
dato preceduto da: 

D—per decimale 
H—per esadecimale 
B—per binario 

Terminate il vostro numero con il 
RETURN seguito da una delle lette¬ 
re viste prima per indicare il formato 
in cui lo volete tradurre. ■ 


33 























r 


Bfl.SE.,, 

SOFTWARE HOUSE - Casella Postale 4 
13055 - Occhieppo Inferiore (VC) 

Tel. 015/592730 


SONO DISPONIBILI 

PER COMMODORE 64 


DATA BA.SE SORG. 

Programma sorgente per la creazione di archivi; usa file relativi 
con catalogo su sequenziale-lunghezza e numero record defini¬ 
bili in BASIC non protetto con istruzioni. 

Lire 50.000 solo su dischetto. 

ALTO MEDIOEVO 

Una perfetta simulazione dell'economia medioevale. Rispetta le 
gerarchie feudali di vassallaggio e vi renderà esperti nell'arte di 
governare destreggiandovi tra guerre - carestie - epidemie - 
maltempo e innondazioni. Strutturato a economia di mercato 
permette elaborate politiche fiscali e speculazioni commerciali. 
Da 1 a 9 feudatari il migliore dei quali diventerà Re. Corredato di 
Istruzioni. 

Lire 30.000 dischetto L. 25.000 cassetta. 


ATOMO 

Gestione simulata di impianto nucleare per la produzione di 
energia elettrica. Il pieno rispetto dei parametri reali rende il 
programma oltre che un gioco un modo per capire il funziona¬ 
mento di un reattore nucleare. È la vostra condotta a determi¬ 
nare - rendimento - guasti ecc. 

Necessarie buone doti di intuito e abilità - sarete comunque 
valutati dal calcolatore a fine impiego. 

Non aspettatevi giudizi molto lusinghieri (almeno all'inizio). 

Lire 30.000 dischetto L. 25.000 cassetta 


BLACK JACK 

Gioco di carte classico con le regole del B.T. americano - il banco 
non è fisso al calcolatore ma ruota secondo le regole. 

Lire 30.000 dischetto L. 25.000 cassetta 

TORRE DI HANOI + OTHELLO 

I - classici - finalmente anche per il Commodore 64. 

Lire 30.000 dischetto L. 25.000 cassetta. 

HIDDEN - CODE + BIORITMI 

Gioco di abilità matematica (numero nascosto) + bioritmi con 
determinazione del giorno, della settimana e grafico video. 
Lire 30.000 dischetto L. 25.000 cassetta 

RICCO PACKAGE DI PROGRAMMI GESTIONALI 

(fatturazione condominio, magazzeno, ecc...). 

A disposizione per consulenze su 

Software Applicativo - Automazione di Processi 
Soluzione dei Vs. problemi su Commodore 64 
Corsi di BASIC 
Tel. 015/592730 

In vendita anche presso 

TEOREMA - Via Losanna, 9 - Biella 


Spedire in busta chiusa a: 

BA.SE B.n.c. - Casella Postale 4 - 13055 Occhieppo Inf. (VC) 


Nome e Cognome 


















Per un totale di Lire 


Pagamento □ Allegato assegno non trasf. sped. celere 
□ Contro assegno + spese postali 


Impariamo 
il linguaggio macchina 
_con il VIC e C 64 


jo F'PIMT -~'R'IHT •'D-D- 2 ci»ala ,, :PRINT "B-5 In 
Ir- ; o" ;PRINT ’ "H-es«fl*c I ai 1 .*” 

20 PRIMI;PRIMI 
30 INPUT "NUMERO ;IN* 
nif="+" 

40 A*=LEFT*<IN*,1) ’ B*=MID$\IH$,2);IF B$ = 
"" THEN 5000 


45 

IP ASC(B$)= 

43 OR ASC 

(B 

$ / 

=45 


T 

HEN 

MI * = 

B$ ' 

Bf=MID*<E* - 

n % 








50 

IP t 

HEN 150 








60 

IP A*="B" T 

MEN 200 








/ 0 

IF A$C-"D" 

THEN 5000 








7 PI 

DEC-UAL(B$) 









80 

re r >PC’.'2 A )5 

THEN PRI 

NT 

* F* 

RIN 

T 


"NUMERO 

TROPPO GRANDE ! 

"SPRINT:Q 

OTQ 

10 





R2 

IP ASC(MI*> 

=45 THEN 

r;, cr 

c ~ 

S55 

3 

6 

1 -DE 


95 

PRINT '■ PF.INT 

"Lo r.orv. 

•lì'. 

tn 

■ ri 


M 

r 1 


°o 

GEI IN* JIF 

IN*="D" 0 

R 

IN 

4-.M 

H 

" 

OR 

IN*= 

Il p !• 

THEN PRINT 

IN* 








1 AA 

X w -J 

IF IMf-"D" 

THEN VI : 

PT 

R* 

( DE 

7 

) 

;<50T 

0 40 

00 










110 

IF IN$="H" 

THEN 300 








120 

t p iN*="B" 

THEN 400 








1 Tri 

GOTO 90 









150 

REM CONVER 

SIENE HEX 

•~D 

EC 






•» c; cr ( 

POR 1=1 TO 

1 r X) ( p, $ ) ; 

M* 


IDI 

( 

r:, 

*,I, 

1) 

1 /. Q 


OR M*:.-"F" 

THE 

N 5 

r 

0 



Ì65 

NEXUDEC^O 









1 7 

FOR 1=1 TO 

LEM ( B*>i 

V; <. 

-=F 

IGH 

T 

* 

t D & 

I ) 

X / w 

N=ASC\M* )-■ 

4S+7* ■: ASC 

( « 

* ) 

>44 

) 




•• Cj 

0EC"T>EC+Nh 

i /, ( T ... 1 5 ; 


XT 






1E5 

IF DEC>2 A 1 

A THEN SO 








190 

DOTO 35 









200 

REM CONVER 

SIONE SIN 

-D 

EX 






210 

FOR 1=1 TO 

. ir M t p * ■> ; 


n 

IDI 

( 

B 

* , I , 

■1 ì 

220 

IF Mf-:>"0" 

AND n* C: 

»• 1 

»* 

TH 

E 

N 

50C 

H 

230 

NEXT ; DEC--0 









240 

POR 1=1 TO 

LEN{B*) : 

m 

==R 

15 H 

T 

* 

( B $ , 

I ) 

250 

DE fi ■•DEC-- ( A 

SCCM*)=49 

• V 

n A 

( I- 

1 

) 

: NE> 

T 

255 

IF DEC > 2 A 1 

A THEN 8C 








2 6 

GOTO 85 









300 

REM CONVE 

RSIONE DE 

C~ 

HE 

X 





71 ,■< 

V f F'OR 

I.-3 TO 0 

SI 

EP 

... 1 





320 

N---INT (DEC/ 

C16 A I))JD 

EC 

-Q 

EC- 

N 


16 A I 


330 

V*=V*+CHR* 

( 48+N— 7*( 

Ni;- 

9) 

) iN 

E 

x 

T 


34(i 

V$=LEPT$<V 

* 93^" "4 

r 7 *“ * 

MI 

D* 

( V* 

y 

"i 

) :G0 

TO 4 


000 

400 REM CONVERSIONE DEC-BIN 
410 Yf- ,: ":FOR 1 = 15 TO 0 5TEP-1 
420 N~INT ( DEC/ < 2 A I > ) : DEODEC-N*2 A I 
4 2 .■) i,i % - n $+r |,.j p ; $ ( 4 o + ^ ) • x,i r / t 

440 V*=LEFT*<V$,e>+" "+MID*<V*.9>?9CTQ 4 
000 

4000 PRIMI ; PRIMI "IL RISULTATO E 7 ?"V* 
4010 GOTE 10 

3000 F'RINTSPRINT "HAI COMMESSO UN ERRORE 
M E L B ATTERE 11.. M U M E R 0 ! ' 

5010 GOTO 10 

LISTATO 1. Prograrena per la cor.ve.'s i or. i 
nei tra si sta» i di rapp rasentai i one ./.ime 
rie.H ESA-DEC-BIN. 


Listato 1. Il programma BASIC. 




























Anno nuovo, novità JACKSON 



24 fascicoli settimanali 

per ottenere uno splendido 
Corso rilegato composto da: 
2 volumi di Lezioni per complessive 608 pagine 
1 volume di Computer-test di 104 pagine 

1 Dizionario di Informatica di 200 pagine 



Abbonamento-risparmio 4- Libro 

Tagliando da inviare in busta chiusa a: 

Gruppo Editoriale Jackson “ABC Personal Computer” 
via Rosellini, 12 - 20124 Milano 

Sì, desidero sottoscrivere l’abbonamento risparmio ai 24 fascicoli 
di ABC Personal Computer e alle copertine dei 4 volumi dell’opera. 
Tutto al prezzo speciale di L. 80.000 invece di L. 96.000. In più 
avrò diritto a ricevere immediatamente il volume di Adam Osborne: 
Microelettronica, la Nuova Rivoluzione Industriale. 

Allego alla presente 

□ assegno non trasferibile di L. 80.000 a voi intestato 

□ fotocopia di versamento di L. 80.000 sul ccp n. 11666203 

□ fotocopia di vaglia postale di L. 80 000 a voi intestato 
I fascicoli dovranno essere inviati a: 


il risultato 
dell’esperienza 
la conferma 


della superiorità 


GRUPPO 

EDITORIALE 

JACKSON 



Nome 

. Cognome 


1 Via 

1 Città 

Prov. 

C.A.P. 

i Data 

Firma 























ntroduzione 

aH’intelligenza artificiale 

— Parte seconda — 



Figura 1. Il computer non può adottare uno schema logico simile a quello 
generalmente adottato da un giocatore umano, infatti l’umano può considerare 
solo le più interessanti tra le mosse possibili, le eventuali risposte dell’avversa¬ 
rio, le contromosse. 

Questi tre soli passaggi comportano, nel caso de II computer impara, la 
necessità di considerare ben 512 eventualità. Non potendo selezionare quelle 
“più interessanti" il computer dovrebbe analizzarle tutte e 512senza ottenere, 
peraltro, risultati apprezzabili sul piano della strategia. 


Prosegue in questa 
seconda parte 
il nostro “viaggio” 
nell’intelligenza 
artificiale 


di Bruno Del Medico 


N el corso della prima parte, 
descrivendo lo svolgimen¬ 
to dei programmi presen¬ 
tati, abbiamo fatto alcune conside¬ 
razioni sulla natura dell’intelligenza 
artificiale. In particolare abbiamo 
osservato che un determinato pro¬ 
gramma si comporta in modo intel¬ 
ligente quando segue schemi logici 
simili a quelli che seguirebbe un es¬ 
sere umano posto di fronte al mede¬ 
simo problema. 

Era il caso del programma Gara 
di Master Mind, ed è anche il caso di 
Tobia nel labirinto, programma 
presentato in questo numero. 

Si nota però che in determinate oc¬ 
casioni il computer segue schemi lo¬ 
gici e comportamenti del tutto origi¬ 
nali, o comunque abbastanza dissi¬ 
mili da quelli che un essere umano 
sarebbe tentato di seguire come pri¬ 
mo istinto. Questo avviene nel pro¬ 
gramma Il computer impara. 

Il computer impara 

Si tratta del programma Almeno 
una volta, presentato nel numero 
precedente. Si sono introdotte le 
modifiche necessarie a rendere più 
equa la competizione, ed è stato 
cambiato il nome perché il proble- 
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ma di battere il computer almeno 
una volta non sussiste più. 

Il listato 1 contiene la versione per 

10 Spectrum, ed il listato 2 contiene 
le modifiche necessarie per rendere 

11 listato 1 compatibile allo ZX81. 

L’impostazione del gioco è rima¬ 
sta la stessa: il computer visualizza 
sulla destra dello schermo dei cubet¬ 
ti (questa volta il numero cubetti 
varia ad ogni partita) ed i giocatori a 
turno possono toglierne o aggiun¬ 
gerne da I a 4. Chi toglie l’ultimo 
perde. Le aggiunte si possono fare 
solo se i cubetti sono meno di 31 e 
più di 10. 

Il gioco si basa sulla ricerca di 
posizioni sicure. Nella versione pre¬ 
cedente il computer vinceva sicura¬ 
mente perché il programma era stu¬ 
diato in modo che il giocatore non 
potesse uscire dalla sequenza di po¬ 


sizioni perdenti: 

26-21-16-11-6-1 

Ora, nella nuova versione, la si¬ 
tuazione è invertita. Lo sfidante co¬ 
nosce la strategia nei dettagli, e sa 
che per vincere basta far cadere il 
computer nella sequenza perdente. 
Cioè che, togliendo o aggiungendo 
da 1 a 4 cubetti per volta, occorre 
farne rimanere sullo schermo solo 
21, solo 16 e così via fino a che non 
ne rimane solo uno. Chi cade una 
volta nella sequenza non riesce più 
ad uscirne, se il suo avversario la 
conosce. 

All’inizio del gioco il computer 
non la conosce: sa solo che può to¬ 
gliere o aggiungere da uno a 4 cubet¬ 
ti per volta. Evidentemente perderà 
le prime partite, ma imparerà me¬ 
morizzando tutte le sequenze vin¬ 
centi giocate, sia da lui che dal gio- 
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catore. 

Dopo poche partite ha in memoria 
una quantità di sequenze buone suf¬ 
ficienti a metterlo alla pari con lo 
sfidante. 

In pratica avviene che diventa bravo 
tanto più rapidamente quanto l’av¬ 
versario è abile. 

La tecnica usata dal computer 
non è immediatamente comprensi¬ 
bile. 

Ognuno di noi, affrontando in mo¬ 
do intelligente il gioco, sarebbe por¬ 
tato a ragionare in questo modo: 

• posso fare questa mossa; 

• il mio avversario potrebbe rispon¬ 
dere con queste altre mosse; 

• a seconda della sua risposta, io 
potrei ...; 

• oppure posso fare quest’altra mos¬ 
sa... 


Ma questo modo di affrontare il 
problema è molto dispersivo. Lo 
schema della figura 1 illustra il tota¬ 
le delle eventualità da considerare, 
in relazione a tre soli passaggi. 
Probabilmente un giocatore umano 
riuscirebbe a considerare solo le più 
importanti tra le 512 eventualità 
possibili, ma il computer non ha la 
possibilità di discriminare le even¬ 
tualità più interessanti dalle altre. 
Dovrebbe inevitabilmente prender¬ 
le in considerazione tutte 512, ma 
come? Forse con 512 linee IF... 
THEN? 

In ogni caso, i risultati di un simile 
sforzo sarebbero sicuramente inade¬ 
guati perché limitati a tre soli spo¬ 
stamenti. 

Il computer adotta invece un meto¬ 
do diverso, illustrato nello schema a 
blocchi della figura 2. 


Analisi del listato 1 

La linea 90 inizializza una matrice 



Figura 2. Lo schema a blocchi in figura illustra il metodo adottato dal 
computer per migliorare progressivamente la propria strategia di gioco nel 
programma II computer impara. In pratica il computer memorizza le sequenze 
di posizioni giocate dal vincitore di ogni partita. 
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E ORA CHE STO 
ANNEGANDO NELLE CARTE 
CHI MI DARA'UNA MANO? 



IL PERSONAL COMPUTER IBM 
ILTUO PICCOLO GRANDE AMICO. 


Un amico che può aiutarti a venire fuori 
dalla montagna di pratiche che ti sommer¬ 
gono. 

Il Personal Computer IBM, così piccolo da 
stare comodamente sulla tua scrivania, 
può fare moltissimo per te: aiutarti a risol¬ 
vere facilmente i problemi quotidiani del 
tuo lavoro. E non solo quelli. Preventivi, 
calcoli, contabilità, statistiche, tasse, indi¬ 
rizzi e corrispondenza. Tutto sarà in ordi¬ 


ne, perfettamente aggiornato, e stampato 
in pochissimo tempo. 

Non è necessario essere uri addetto ai lavo¬ 
ri per imparare a usarlo, perchè si fa capire 
senza difficoltà. Vedrai, in poche ore tu e il 
tuo Personal Computer IBM diventerete ot¬ 
timi amici. 

Vuoi metterlo alla prova? Vai subito dal tuo 
concessionario per il Personal Computer 
IBM. D tuo tempo è prezioso. 



Il Personal Computer IBM contiene un microprocessore a 16 bit e una memoria di 
utilizzo che raggiunge i 640 Kbyte, e può essere dotato di un video a colori e di un co- 
processore matematico. E, grazie ai dischi fissi, la capacità massima di memoria del 
sistema è di 21 Mbyte in linea. Inoltre, puoi facilmente collegarti con un altro Perso¬ 
nali Computer IBM, con elaboratori più potenti e con la rete dei Centri Servizi Elabo¬ 
razione Dati della IBM. 

Sistemi operativi: DOS 1 - DOS 2 - UCSD - CP/M-86. Supporti per le comunicazio¬ 
ni: Asincrone - SDLC - BSC - Emulazione: 3101 -3270. Linguaggi: tutti i principali e 
in più l’APL. Programmi applicativi: Corso Autodidattico Interattivo - EasyWriter 
(anche in italiano) - Multipìan (anche in italiano) - VisiCalc - Gestione Aziendale - 
Contabilità Semplificata 


GGK 












Introduzione 
all’inteUigenza 
_artificiale 


numerica di nome A, composta da 
25 vettori: ogni vettore contiene 12 
elementi. 

Appena inizializzati, tutti gli ele¬ 
menti di tutti i 25 vettori hanno va¬ 
lore zero. Al termine della prima 
partita, il primo vettore della matri¬ 
ce contiene la sequenza di posizioni 
occupate da chi ha perso la partita, 
cioè le posizioni in cui il vincitore ha 
costretto l’avversario. 

Il secondo vettore della matrice A 
conterrà la sequenza di posizioni 
giocate dal vincitore della seconda 
partita. Complessivamente il com¬ 
puter potrà immagazzinare 25 se¬ 
quenze vincenti. 

Quando lo sfidante muove, toglie o 
aggiunge alcuni cubetti e raggiunge 
una determinata posizione, quella 
posizione viene conservata nella va¬ 
riabile stringa R$. (Linee 302 e 672). 
La posizione che il computer rag¬ 
giunge muovendo viene conservata 
nella variabile stringa Y$. (Linee 
303 e 2905). 

Al termine della partita, la se¬ 
quenza relativa al vincitore viene si¬ 
stemata nella stringa T$ (linee 4035 
o 4222). 

Il ciclo FOR Z (linee 4520-4600) si¬ 
stema provvisoriamente la sequenza 
vincente in un vettore di nome B. 
Questo vettore viene confrontato 
con tutti i 25 vettori che compongo¬ 
no la matrice A (linee 4610-4670). Se 
il computer constata di avere già in 
memoria una sequenza vincente si¬ 
mile, vuol dire che quella sequenza è 
migliore delle altre perché si ripete 
più spesso. La sposta allora nel pri¬ 
mo vettore della matrice A, facendo 
slittare verso il basso tutte le altre. 

In questo modo se, per caso, la 
prima partita è stata vinta in modo 
fortuito con una sequenza giocata a 
caso, questa sequenza dopo un certo 
numero di partite comincia a slittare 
verso il basso, ed ai primi posti com¬ 
paiono sequenze molto simili a quel¬ 
la illustrata all’inizio dell’articolo. 
Se invece il giocatore vince la sua 
prima partita usando la sequenza 
vincente, anche il computer sarà in 
grado di usarla (e la userà efficace- 
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Figura 3. Quando il bruco Tobia entra per la prima volta nel labirinto, segue 
sempre la direzione a sinistra per cui può accadere, se il labirinto è uguale a 
quello illustrato in figura, che la strada sia molto più lunga del necessario (in 
alto). 

Però percorrendo il labirinto ne studia la composizione ed in particolare le 
posizioni delle porte. Al ritorno segue senza esitazioni la strada più corta (in 
basso). 
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CON IL TUO NUOVO AMICO. 



0 tuo concessionario IBM. Ti aiuterà a ottenere il massimo dal tuo Personal Compu¬ 
ter IBM. Ti garantirà un’assistenza puntuale e un servizio all’altezza del nome IBM, 
che in tutto il mondo significa efficienza e affidabilità. Per una lunga e proficua amici¬ 
zia fra te e il tuo Personal Computer IBM. Per acquisti superiori alle 20 unità puoi an¬ 
che rivolgerti alle filiali IBM. E per ulteriori informazioni su eventuali punti di vendi¬ 
ta che non compaiono sull’elenco, telefona a. 02/21752360 oppure 06/54864962. 


ABRUZZI/MOLISE 

Pescara - ITALDATA SRL - Via TiburUna, 75 - Tbl. 085.50843 
Campobasso - PUBLISISTEM1 SRL - Via S. Antonio Abate, 236 - 
Tel. 0874.98144 

BASILICATA 

Potenza - I.P.E.S. SPA - Via Sanremo, 79 - Tel. 0971.43293 
CALABRIA 

Cosenza - CALIÒ SRL - Via N. Serra, 90 - Tel. 0984.32807 
CAMPANIA 

Cava dei Tirreni - METELLIANA SPA - Via Mandoli, 16 - 

Tel. 089.463877 

Napoli 

ENGINEERING INFORMATICA SRL - Via Carducci. 15 - 
Tel. 081.402660 

INFORMATICA MERID. SNC - Via P Castellino, 179 - 
Tel. 081.464022 

POINTER SISTEMI SRL - Via A. De Gasperi, 45 - Tel. 081.312312 
Salerno - OMNIA SRL - C.so Garibaldi, 47 - Tel. 089.220366 
S. Maria Capuavetere - GENERAL SYSTEMS SRL - 
Vìa Unità d’Italia, 21/23 - Tel. 0823.811100 

EMILIA 

Bologna 

.ABACO SAS - Via Bernini, 1 - Tel. 051.393274 
CMB INFORMATICA SCRL - Via Arcoveggio, 74/10 - Tel. 051.323594 
LUCKY SYSTEMS SRL - Via Ferini, 33/A - Tel. 051.231569 
SYS DATA ITALIA SPA - Via Massimo d’Azeglio. 58 • Tel. 051.330021 

Carpi 

DATA SRL - Va B. Peruzzi, 12 - Tel. 059.688090 

UN1DATAX SRL - Vale N. Biondo, 6 - Tel. 059.698355 

Faenza - DATA SERVICE SRL - Va Laderchi, 2 - Tbl. 0546/660300 

Ferrara - MARKJTALIA COMPUTERS SRL - Va Bologna. 84 - 

Tbl. 0532.96128 

Forlì 

C.E.DA.F. COOP. ELAB. DATI - Va Zanchini, 57 Tel. 0543.65402 
I.C.O.T. IMPLANTI SRL - Via Codazzi, 10 - Tel. 0543.724246 
Imola - PALAZZO DONATO - Via Emilia, 23/A - Tel. 0542.29195 
Modena - MASETTI ELETTRONICA SRL - Corso Canalgrands, 14 
Tbl. 059.219801 

Piacenza - RCM COMPUTER SAS - C.so Vittorio Emanuele II, 96 • 
Tel. 0523.37656 

Reggio Emilia 

ABAX INFORMATICA SCRL • Via M.K Gandhi, l/D -Tel. 0522.26941 
A P.E.D. ELABORAZIONE DATI - Va Filippo Re, 17 - Tel. 0522.38721 
ME MAR ELECTRONIC SRL - Va M. Melato, 13 - Tel. 0522.94230 
Rimini - HARD & SOFT SYSTEMS SRL - Vale Valturio, 43 - 
Tel. 0541.773343 

LAZIO 

Frosinone - SAIU ELETTRONICA SRL Va Vado del Tufo, 85 - 
TeL 0775.83093 

Roma 

CERVED SPA - Va Appia Nuova, 696 - Tel. 06.7940241 

DATAOFF1CE SPA - Va Sicilia, 205 - Tbl. 06.4754568 

ELEDRA 3S SPA - Va G. Valmarana, 63 - Tel. 06.8127324 

EXPO SAS - Va 4 Novembre, 151 - Tel. 06.6794293 

GEDIN SRL - L.go D. De Dominicis, 7 - Tel. 06.432183 

I.S.E.D. SPA - Via Tiburtina. 1236 - Tel. 06.4125851 

ISIITAL SISTEMI PER L’INFORMATICA SPA - P.zza SS Apostoli, 66- 

Tel. 06.6793477 

ITALSIEL SPA Va Tevere, 26 - Tel. 06.84311 
JACOROSSI SPA • Va V. Brancati. 64 - Tel. 06.50091242 
MEMORY COMPUTERS SRL - Va Aureliana, 39 - Tel. 06.4758366 
MICROCOMP SPA - V.le M. Gelsomini, 28/30 - Tel. 06.5778484 
MICA DIFF INF SRL - V.le Paridi, 40 - Tel. 06.872603 
SAPES SRL - Vie Tito Livio. 12 - Tel. 06.3453536 
VALDE ADEL SRL - P.zza S. Anastasia, 3 - Tel. 06.6786663 
Viterbo - 1TALBYTE SRL - V.le Trento - Pai. Garbini - 
Tel. 0761.221333 

LIGURIA 

Genova 

DIFF.EL. SRL - Va XX Settembre, 31/4 - Tel. 010.586238 
ELABORATION PROCESSES SRL - Va Brigata Lig.. 68/70/72/74 - 
Tel. 010.565704 

SISTEX SRL Via SS. Giacomo e Filippo, 13R - Tel. 010.873444 
La Spezia - DIFF.EL. CESA SRL - Vale S. Bartolomeo, 139 
Tel. 0187.505223 

Sanremo - DIFF.EL. RCS SRL - Va Helsinore, 8 - Tel. 0184.72435 

LOMBARDIA 

Albino - NUOVA INFORMATICA SAS - Va Provinciale, 86 
Comenduno - Tel. 035.751784 


Assago - TRANSDATA SRL - Mi Fiori Pai. E3 Str. 1 - 
Tel. 02.8242460 

Bergamo - SELTER1NG SPA - Via Verdi, 31 - Tel. 035.248256 
Brescia 

FIN-ECO SERVICE SRL - Va Pastrengo, 5 - Tel. 030.59055 

MICROSELT SRL - Va Cipro, 33 - Tel. 030.224246 

SELTERING SPA - Va Cipro, 33 - Tel. 030.220391 

Bresso - C.l.S.I. SAS - V. Vittorio Veneto. Ili - Tel. 02.6105798 

Como - BRUNO SRL - Va Rubini, 5 - Tel. 031.260538 

Lecco - ZECCA UFFICIO SPA - Vale Dante, 14 - Tel. 0341.373291 

Lodi - ZUCCHETTI SPA - C.so Mazzini, 39 - Tel. 0371.54827 

Mantova 

REPLICA COMPUTER SRL - Va G. Arrivabene, 22 - 
'Ibi. 0376.368821 

ANTEK COMPUTER SAS - Via Cavour, 69/71 - Tel. 0376.329333 
Milano 

AMUFFICIO SAS - Via Desenzano, 7 - Tel. 02.4080275 

B. O.M. SAS DI L. LEPRI & C. - Vie Tunisia, 50 - Tel. 02.6598076 
COMPUTER SHARING NORD SRL - Piazza S. Maria Beltrade, 1 - 
Tel. 02.860586 

C. S.A. COMM. SRL - Va Farini, 82 - Tel. 02.6888433 
CTC GROUP SRL - Va Dante, 14 - Tel. 02.661450 

DATA OPTIMATION SRL - Va Masaccio, 12 - Tel. 02.4987876 
ECS ITALIA SRL - C.so Monforte, 15 - Tel. 02.780213 
EDELEKTRON SRL - C.so Sempione, 39 - Tel. 02.3493603 
ELEDRA 3S SPA - Vale Elvezia, 18 - Tel. 02.349751 
GENERAL ELECTRIC INFORMATION SERVICES SPA - 
V.le Regina Giovanna, 29 - Tel. 02.2870181 
HOM1C PERSONAL COMPUTER SRL - Piazza De Angeli, 3 - 
Tel. 02.4988201 

HUGNOT LUIGI LUCIANO - Via De Togni, 10 - Tel. 02.873190 
IL NUOVO UFFICIO SISTEMI SNC - Va Priv. del Don. 2 - 
Te). 02.8350780 

ISTITUTO SUPERIORE DI INFORMATICA SRL - 

Via Montepulciano, 11 - Tbl. 02.6701779 

MICROTECH SRL - Va Fili Bronzetti, 20 - Tel. 02.733609 

O.E.M. SRL - C.so Sempione, 8 - Tel. 02.3492136 

S1RIO SHOP SRL - Vale Certosa, 148 - Tel. 02.3010051 

SOFTEC COMPUTER SRL - Vale Maino, 10 - Tel. 02.7491196 

S D Ì. STUDIO DI INFORMATICA SPA - 

Va G. Winckelmann, 1 - Tel. 02.4227361 

Monza - EDICONSULT SRL - Va Rosmini, 3 - Tel. 039.389850 

Pavia - I.T.C. INFORMATICA SRL - Strada Nuova, 86 - 

Tel. 0382.303201 

Sondrio - G.P.D. DOMENIGHIN1 SRL - Vie N. Sauro, 28 - 

Tel. 0342.218561 

Varese 

ELMEC SPA - Via Sebenico. 12 - Tel. 0332.264135 
I.R.P.E. INF. ELETTO. SRL - Va Morazzone. 8 - Tel. 0332.238533 
VEGA SPA - Via Silvestro Sanvito. 103 - Tel. 0332.229374 
Vigevano - LOGICA INFORMATICA SRL - Va Montegrappa, 32 - 
Tbl. 0381.81888 

Vimercate - DATA PROGRES SRL - Va V. Emanuele, 44/A 
Tbl. 039.667423 

Vimodrone - OMEGA DATA SRL - Strada Padana Sup., 317 - 
Tbl. 02.2504121 


MARCHE 

Jesi - SYSTEM HOUSE A.P.R.A. SRL - Vie Cavallotti. 9 - 
Tel. 0731.58743 

Moie - S.E.D.A. SPA P.zza S. Maria - Tel. 0731.70345 
Pesaro COMPUTER & OFFICE SRL - Va Mazzini, 73 - 
Tel. 0721.64170 


PIEMONTE 

Alessandria - INFORMATICA SERVICE SRL - Via Isonzo, 63 - 
Tel. 0131.445817 

Asti - HASTA DATI SNC - Via Silvio Morando, 6/A - Tel. 0141.216356 

Biella 

TEOREMA SRL - Via Losana, 9 - Tel. 015.24915 
V.I.P. COMPUTERS SRL - Vìa Repubblica, 39 - Tel. 015.27106 
Borgosesia - I.D.S. INF. DATA SYST. SRL - Vale Varallo, 157 - 
Tel. 0163.25327 

Cuneo - SISTEMI SRL - Va Giolitti, 26 - Tel. 0171.55475 
Genola - EUROSISTEMI SPA - Bivio S S. 20/28 - Tel. 0172 68176 
Novara - ASA SRL - Corso Italia, 25 - Tel. 0321.28250 
Torino 

DIVERSIFICATE VENCO SRL - C.so Matteotti, 32A - Tel. 011.545525 
PROGRAMMA SPA - C.so Svizzera. 185 - Tbl. 011.746421 
SISTEMI SPA - C.so Peschiera. 249 - Tel. 011.3358676 
SOFTEC SRL - C.so San Maurizio, 79 - Tel. 011.8396444 
Verbania (Intra) - S 80 SCRL - Va Roma, 7 - Tel. 0323.41083 
Vercelli - ANALOG SNC - Va Dionisotti, 18 - Tel. 0161.61105 


PUGLIE 

Bari 

COMPUTER SHARING SUD SPA - Va Trento, 3 - Tel. 080.339177 
PASED SRL - Va Calefati. 134/136 - Tel. 080.481488 
PUBLISISTEMI SRL - Va Castromediano, 13! - Tel. 080.583943 
SIRCOM SRL - Va della Repubblica, 67/69 - Tel. 080.364674 
Foggia - MASELLI PER L’UFFICIO - Va L. Zuppetla, 355A - 
Te). 0881.78014 

Lecce - I.P.E.S. SPA - Via Oberdan, 29 - Tel. 0832.33904 
Maglie - S.V.l.C. SRL - Va V. Emanuele, 121 - Tel. 0836.21604 

SARDEGNA 

Cagliari - C.D.S. SAS - Va Sonnino. 108 - Tel. 070.650756 
Olbia - C.P.S. SRL - Va Galvani, 4 - Tel. 0789.51194 

SICILIA 

Catania 

ASIA COMPUTER SRL - Via S. Eupilio, 13 - Tel. 095.326944 
COMPUTER SYSTEMS SRL - Va Ruggero di Lauria, 87 - 
Tel. 095.493777 

Messina - SICIL FORNITURE SPA - Va Don Blasco, 75 - 

Tel. 090.2923987 

Palermo 

SER.COM. ITALIA SRL - Va Soluti, 180 - Tbl. 091.261041 
SI.PR.EL. SRL - Va Serradifalco, 145 - Tel. 091.577344 
TESI SRL - Va E. Notarbartolo, 23 - Tel. 091.260549 
Trapani - TESI SRL - Va Palmerio Abate, 2 - Tbl. 0923.20026 

TOSCANA 

Empoli - SESA DISTRIBUZIONE SRL - Via XI Febbraio. 24/B - 
Tbl. 0571.72148 

Firenze 

DATA COOP SCRL - Va di Novoli, 23/H - Tbl. 055.4379868 
D1STAL SRL Via Pacini, 46 - Tbl. 055.350669 
SESA DISTRIBUZIONE SRL - Lungarno Ferrucci, 19R - 
Tel. 055.6811652 

Prato - C.C.S. SAS - Vale Repubblica, 298 - Tel. 0574.580222 
Siena - SILOG SRL - Via Sicilia, 5 - Beiverde Monteriggioni 
Tbl. 0577.54085 

Viareggio - DELPHI SRL - Via Aurelia Sud, 39 - Tel. 0584.395161 
TRE VENEZIE 

Bassano D/Grappa - C.P.E. Piazzetta Poste, 9 - Tel. 0424.20395 

Belluno 

DE PRÀ SRL - Va I. Caffi, 18 - Tel. 0437.23243 

SCP. COMP SYST. SRL - Va Feltro, 32 - Tei. 0437.70826 

Bolzano - BOPAM SAS - Va C. Battisti, 32 - Tbl. 0471.30113 

Castelfranco Ven. - EDS SRL - Va S. Pio X, 154 - Tel. 0423.490178 

Mestre - BOFFELLI F.LL1 G & E SNC • Va Bissolati, 19/21/23 - 

Tbl. 041.951247 

Padova 

CERVED ENGINEERING SPA - C.so Stati Uniti, 14 - Tel. 049.76073- - 

S.l.C. ITALIA SRL - Va Fistomba, 8 - Tel. 049.45555 

SYSTEM ROS SAS - P.zza De Gasperi, 14 - Tel. 049.38412 

SO.GE.DA. SPA - Va Marsala, 29 - Tbl. 049.655385 

S. Donà di Piave - COMPUTIME SRL - Piazza Rizzo, 63 - 

Tel. 0421.2548 

Trento 

SEDA SAS - Via Sighele, 7/1 - Tbl. 0461.984564 

SiGe SNC - COMPUTER SHOP - Va Prato. 22 - Tbl. 0461.25154 

Treviso - INFORMATICA TRE SRL - Vale della Repubblica, 19 - 

Tel. 0422.65993 

Trieste 

DITTA MURRI - Via A. Diaz, 24/A - Tel. 040.733253 
SELTED SRL Va Fabio Pilzi. 23 Tel 040.61381 
Udine 

D.E.U. SRL - Va Di Prampero. 3/7 - Tbl. 0432.204402 

D.E.U. SRL • Va Tbvagnacco. 89 - Tel. 0432.482086 
Verona 

PRAGMA SOFTWARE SRL - Va Carmelitani Scalzi, 20 
Tel. 045.596400 

SEVER DI G. SERENI - Va Locatelli, 10 - Tel. 045.31331 
Vicenza - ALFA DATA SRL - Via Milano, 110 - Tel. 0444.31865 

UMBRIA 

Perugia 

PRISMA INFORMATICA SRL - Va Campo di Morte, 4 N - 
Tel. 075.71973 

PUCCIUFFICIO SNC - Va XX Settembre, 148/C Tel. 075.72992 
Terni - DPS SRL - Va Pacinotti, 6 - Tel. 0744.58247 

VALDAOSTA 

Aosta - INFORMATIQUE SAS - 

Centro Commercial l’Amerique, S.S. 26 - Quart d’Aosta - 
Tel. 0165.765173 


Per maggiori informazioni, compila e spedisci questo tagliando al 
tuo concessionario di zona. 
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Figura 4. Comportamento del bruco nel labirinto. 
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mente) fin dalla seconda partita. 

Quando il computer muove, esa¬ 
mina i vettori della matrice A, che 
contengono solo sequenze di posi¬ 
zioni vincenti, un elemento per vol¬ 
ta. 

Il computer deve cercare di raggiun¬ 
gere le posizioni suggerite da questa 
analisi, partendo dalla posizione in 
cui si trova. 

Ciò è possibile solo se si verificano 
due condizioni, controllate dalla li¬ 
nea 2040: 

• che il numero di cubetti attual¬ 
mente sullo schermo (NUM) sia su¬ 
periore alla posizione vincente da 
raggiungere; 

• che la differenza tra NUM e la 
posizione vincente non sia superiore 
a 4. 

Se tutte e due le condizioni sono 
vere, il computer calcola la differen¬ 
za e gioca quella posizione. 

Poiché il controllo inizia sempre 
partendo dal primo vettore di A, è 
importante che questo contenga la 
sequenza che vince più frequente¬ 
mente. 

Dopo una ventina di partite la 
matrice A avrà sicuramente nei suoi 
primi vettori sequenze con gli ultimi 
quattro numeri uguali a 16,11,6, 1. 
La sequenza contenente anche il 21 
sarà tra le prime se non al primo 
posto. Questo dipende anche da 
quante volte lo sfidante l’avrà usata. 
La tecnica usata dal computer, è un 
esempio di Processo di apprendi¬ 
mento, e potete verificare come sia 
semplice ed efficace. 


Tobia nel labirinto (listato 3) 

Il bruco Tobia è già noto a chi ci 
ha seguito nella prima puntata. 
Questa volta per assicurarsi il cibo 
deve raggiungere il centro di un labi¬ 
rinto e dopo deve uscirne. 

Il labirinto, è generato in modo ca¬ 
suale. All’inizio Tobia non conosce 
il percorso e procede cosi: quando 
incontra un muro gira sempre alla 
sua sinistra e lo segue Fino a quando 
non trova un passaggio alla sua dc- 
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stra. 

Nell’esempio di figura 3 segue il per¬ 
corso indicato in alto che è molto 
più lungo del necessario. 

Tobia, però, impara e quando 
esce, segue il percorso più breve che 
ha ormai memorizzato. Il procedi¬ 
mento seguito è illustrato nello sche¬ 
ma a blocchi di figura 4. Sarà bene 
però analizzare in dettaglio le tecni¬ 
che di riconoscimento delle struttu¬ 
re del labirinto e di memorizzazione 
del percorso. Si fa riferimento alla 
figura 3 ed al listato 3 (per ZX Spec- 
trum). 


Svolgimento del programma 

Le linee fino alla 205 inizializzano 
le variabili. 

Il ciclo FOR K delle linee 220-500 
controlla il movimento del bruco. 
La linea 250 verifica se la stringa R$ 
(che, come si vedrà, serve a memo¬ 
rizzare le istruzioni per muoversi nel 
labirinto) non contiene alcun per¬ 
corso. Ciò accade quando il labirin¬ 
to non è mai stato attraversato. 

Quando esiste già un percorso, le 
linee dalla 250 alla 265 si occupano 
di seguirlo. Diversamente il control- 
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10 passa alla linea 335 e quindi alle 
linee 307 e 340 che spostano Tobia, 
la cui posizione è indicata dalle co¬ 
ordinate (L, C), direttamente verso 

11 cibo, la cui posizione è indicata 
dalle coordinate (X, Y). 

La linea 500 chiude il ciclo e si 
ritorna alla 220. La linea 235 con¬ 
trolla se il cibo è stato mangiato e in 
tal caso salta alle linee 600-640 che 
ristampano il cibo (fuori dal labirin¬ 
to se prima era dentro). Tuttoconti¬ 
nua a ripetersi fino a quando Tobia 
non incontra un muro. La linea 236 
rivela quando ciò accade analizzan¬ 
do il colore della posizione di carat¬ 
tere su cui tobia si sta per muovere. 
Se ATTR (L, C) = 57 significa che la 
posizione (L, C) è colorata in blu; i 
muri del labirinto sono blu per dis¬ 
tinguerli (si veda il riquadro “l’area 
degli attributi”). Per lo ZX8I rima¬ 
ne valido quanto detto nella scorsa 
puntata, in particolare nel riquadro 
sul display file. 

Quando Tobia si trova difronte 
ad un muro il controllo passa alla 
parte di programma tra le linee 700 e 
900. Le coordinate (L, C) sono quel¬ 
le della posizione davanti alla testa 
del bruco. La linea 700 pone la va¬ 
riabile S a 0 se Tobia è su uno dei lati 
verticali, oppure ad 1 o a 2 se si trova 
su uno dei lati orizzontali. 

Adesso il programma misura il 
muro, prima dalla posizione di To¬ 
bia verso l’alto (o verso sinistra), poi 
dalla stessa posizione verso il basso 
(o verso destra). Quando si trova sui 
lati B o A vengono incrementate le 
variabili SU e GIU, mentre sugli al¬ 
tri due lati le variabili SIN e DES. La 
loro somma LATO è la misura del 
muro in questione, aumentata di 
uno dato che la casella di partenza è 
stata contata due volte. 

All’inizio Tobia incontra il muro 
esterno che è lungo 17 caratteri e la 
variabile LATO conterrà 18. Il pas¬ 
so in più serve perché il bruco segue 
il muro dall’esterno, e non cammi¬ 
nandoci sopra. 

Alla linea 790 viene creata per la 
prima volta la stringa R$ che memo¬ 
rizza il percorso da seguire. All’ini- 



DISPLAY FILE DELLO ZX81 


PRIMO BYTE: CONTIENE IL NUMERO DI CODICE DEL CARATTERE 
SCRITTO NELLA POSIZIONE 0, 0 DELLO SCHERMO. 


SECONDO BYTE: CONTIENE IL NUMERO DI CODICE DEL CARATTERE 
SCRITTO NELLA POSIZIONE 0. 1 DELLO SCHERMO. 


I I 

I l 


ULTIMO BYTE: CONTIENE IL NUMERO DI CODICE DEL CARATTERE 
SCRITTO NELLA POSIZIONE 21, 31 DELLO SCHERMO. 


AREA DEGLI ATTRIBUTI DELLO SPECTRUM 



PRIMO BYTE. CONTIENE UN NUMERO CHE PUÒ’ ESSERE LETTO 
CON L'ISTRUZIONE ATTR (0. 0). 

SECONDO BYTE: CONTIENE UN NUMERO CHE PUÒ’ ESSERE LETTO 
CON L'ISTRUZIONE ATTR (0. 1). 


ULTIMO BYTE: CONTIENE UN NUMERO CHE PUÒ' ESSERE LETTO 
CON L'ISTRUZIONE ATTR (21. 31). 


DISPLAY FILE DELLO SPECTRUM 



I I 

■ I 

I l 


Figura 5. Confronto tra il Display File dello ZX81, l’area degli attributi ed il 
Display File dello Spectrum. 


L’area degli attributi nello Spectrum 

Nella prima parie di questo articolo abbiamo visto che nello ZX81 ciascuno dei 22 ★ 32 
punti indirizzabili sullo schermo con l’istruzione PRINT AT può contenere un carattere 
in bianco e nero, oppure uno spazio. Il contenuto di ciascuno dei 704 punti può essere 
ottenuto agevolmente con l’istruzione: 

PRINT PEEK 16398 + 256 * PEEK 16399 
che legge il Display File. 

Il contenuto di ciascuno dei 704 punti indirizzabili sullo schermo dello Spectrum, 
invece, non è sistemato in sequenza nel Display File. Di conseguenza il Display File dello 
Spectrum, non può essere letto efficacemente, se non ricorrendo ad algoritmi complessi. 

Possiamo allora identificare il contenuto di ogni posizione dello schermo dai suoi 
ATTRIBUTI: questi sono immagazzinati in sequenza nell’arca degli attributi, che è 
composta da 768 byte (comprende anche le due linee più basse). 

Nella figura 5 è possibile vedere la differenza tra l’organizzazione della memoria video 
nello ZX81 e nello Spectrum, e l’organizzazione dell’area degli attributi dello Spectrum. 

Facciamo un esempio. Immaginiamo di disegnare sullo schermo una certa quantità di 
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quadratini neri, diciamo 20, c supponiamo che questi quadratini rappresentano gli alieni 
che il giocatore deve catturare. 

Il giocatore è contrassegnato da una G e si trova nella posizione Y, X per catturare gli 
alieni deve muoversi fino a soprastamparli. 

Una routine che disegni sullo schermo 20 quadratini neri, può essere questa: 

80 FOR K = 1 TO 20 

85 PRINT AT INT (RND ★ 22), INT (RND ★ 32); CHR$ 143 
90 NEXT K 

La linea 85 viene eseguita 20 volte; ogni volta il computer genera due numeri casuali 
compresi rispettivamente tra0e21 e 0 e 31, e li utilizza come coordinate per disegnare un 
quadratino nero. 

Ma le coordinate in cui si trovano i quadratini sono state generate a caso e non sono 
conservate in alcun posto della memoria. 

Come può il computer accorgersi quando il giocatore va a soprastampare un quadra¬ 
tino nero? 

Molte informazioni relative allo schermo vengono conservate dallo Spectrum nel 
Display File e leggendo questa parte di memoria, dovremmo conoscere il contenuto di 
ogni parte dello schermo; data la sua particolare configurazione, il Display File non può 
essere letto con istruzioni PEEK ma solo con la funzione SCREENS; con l’istruzione: 

PRINT SCREENS (Y, X) 

il computer scrive: G, perché il punto Y, X dello schermo contiene il carattere G 
(giocatore). 

Si può allora ripetere che con l’istruzione: 

PRINT SCREENS (le coordinate del punto che sta per essere soprastampato dal giocato¬ 
re) 

si ottiene un quadratino nero, quando il giocatore sta per soprastamparc un quadratino 
nero. Ma quanto detto non accade perché la funzione SCREENS non riconosce i caratteri 
grafici c quindi non distingue un quadratino nero da uno spazio vuoto. 

A questo punto abbiamo la seguente alternativa: 

— usare solo caratteri alfabetici, evitando i caratteri grafici; 

— ricorrere ad un altro metodo per riconoscere i caratteri grafici sullo schermo. 

Il primo metodo è facilmente realizzabile, possiamo infatti disegnare 20 caratteri A 
(alieni) al posto dei venti quadratini neri, ma è più conveniente utilizzare i caratteri 
grafici. 

Per conoscerli basta colorarli ed usare l’istruzione ATTR per rilevare il colore di ogni 
posizione. 

Infatti ATTR (W, Z) può avere i seguenti valori: 

56 se alle coordinate W, Z è disegnato uno spazio 
o un carattere grafico in bianco c nero; 

57 se il carattere è colorato in blu; 

58 se è colorato in rosso; 

59 se è colorato in magenta; 

60 se è colorato in verde; 

61 se è colorato in ciano; 

62 se è colorato in giallo; 

63 se è colorato in bianco. 

Nella pratica il valore di ATTR si calcola così: 

8 moltiplicamo il colore dello sfondo, più il colore del testo 

Quando lo sfondo è bianco ATTR vale 8*7, cioè 56. 

Se scriviamo qualcosa in nero il valore di ATTR rimane 56 perché il codice del colore 
nero è ZERO, per ottenere valori diversi da 56 dobbiamo usare i colori da 1 a 7; cioè dal 
blu al bianco. 

Inoltre il valore di ATTR così ottenuto deve essere aumentato di: 

• 64 se la posizione è EXTRA-LUMINOSA, cioè se è sotto l’influenza del comando 
BR1GHT; 

• 128 se la posizione è lampeggiante, cioè se è sotto l'influenza del comando FLASH. 
Nel listato 3, Tobia riconosce i muri del labirinto perché sono colorati in blu c il verde 

di ATTR diventa 57 (linea 236 del listato 3). 


zio sarà composta da 18 caratteri 
“B”, più 18 “S”, più 18 “A”, più 18 
“D”. 

Occorre ora spiegare che in questa 
stringa, ed in altre analoghe usate 
nel programma, ogni carattere cor¬ 
risponde ad un passo del bruco in 
una certa direzione: 

B corrisponde ad un passo verso il 
basso; 

S corrisponde ad un passo verso si¬ 
nistra; 

A corrisponde ad un passo verso 
l’alto; 

D corrisponde ad un passo verso 
destra. 

Alla fine la stringa E$ conterrà in 
questo modo il percorso più breve 
da seguire per arrivare al cibo. 

La stringa R$ contiene ora le 
istruzioni per eseguire un giro com¬ 
pleto a partire dall’angolo in alto a 
destra. Tobia però non occupa que¬ 
sta posizione ed ecco che le linee 
800-803 manipolano la stringa in 
modo che le istruzioni partano dalla 
posizione occupata. 

Tobia segue ora le indicazioni della 
stringa R$ fino a quando le linee 
832-835 non rivelano un passaggio 
verso i corridoi più interni; allora il 
ciclo FOR M viene abbandonato ed 
il controllo passa alla linea 850. 

La variabile P contiene il numero 
di passi fatti da Tobia dal momento 
in cui ha incontrato l’ostacolo fino 
al raggiungimento del passaggio. 
Nel caso del nostro esempio, 36 pas¬ 
si: 9 in basso, 18 a sinistrae9 in alto. 
Quando P è minore di LATO ★ 2, 
vuol dire che il passaggio è stato 
raggiunto con un numero di passi 
inferiore a quello che sarebbe stato 
necessario seguendo la direzione op¬ 
posta. 

In questo caso la strada percorsa è 
effettivamente la più breve e Tobia 
memorizza questo spezzone di per¬ 
corso aggiungendolo a quanto già 
contenuto nella variabile E$. (Linea 
900). 

Negli altri casi, quando P è mag¬ 
giore o uguale a LATO ★ 2, Tobia 
considera buono il percorso oppo¬ 
sto cioè quello contenuto nella parte 
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di stringa R$ non utilizzata. Vedia¬ 
mo in pratica come varia la stringa 
R$: 

a) stringa R$ generata subito dopo il 
calcolo del lato: 
“BBBBBBBBBBBBBBBBB '.S 

sssssssssssssssss 

aaaaaaaaaaaaaaaaaa 

DDDDDDDDDDDDDDDDDD” 

b) stringa R$ modificata in funzione 
della posizione di Tobia: 

“BBBBBBBBB 

sssssssssssssssssssssss 

AAAAAAAAAAAAAAAAAA 

DDDDDDDDDDDDDDDDDD 

BBBBBBBBB” 


c) parte di stringa R$ utilizzata da 
Tobia per seguire il perimetro del 
labirinto fino al raggiungimento del 
passaggio (strada non buona): 

“BBBBBBBBB 

ssssssssssssssssss 

AAAAAAAAA” 

d) parte di stringa R$ non utilizzata 
da Tobia, valutata come percorso 
buono: 

“AAAAAAAAA 

DDDDDDDDDDDDDDDDDD” 

BBBBBBBBB” 

Questa ultima parte di stringa rap¬ 
presenta il percorso da memorizza¬ 
re, ma non può essere memorizzata 
cosi com’è. Infatti per seguire il per¬ 
corso inverso, Tobia deve leggere la 
stringa R$ partendo daH'uItimo ca¬ 
rattere anziché dal primo; e doven¬ 
dosi muovere in senso opposto, deve 
interpretare “alla rovescia” le indi¬ 
cazioni della stringa. Prima di me¬ 
morizzare la stringa occorre quindi: 

• ribaltare la stringa, in modo che il 
primo carattere diventi l’ultimo; 

• invertire il significato dei comandi: 
S diventa D, A diventa B, e vicever¬ 
sa. 

Queste operazioni vengono ese¬ 
guite alle linee 870 e 875. 

Arrivato di fronte al passaggio e me¬ 
morizzato il percorso più conve¬ 
niente, Tobia constata che non esi¬ 
stono ostacoli immediati nel percor¬ 
so verso il cibo e passa il controllo 
alle linee 377 e 340, che lo fanno 


muovere finché non incontra un 
nuovo ostacolo; cioè dopo due passi 
quando incontra il muro del perime¬ 
tro più interno. 

Allora il controllo passa ancora 
alle linee 700 e seguenti. Tobia ripete 
tutte le operazioni illustrate: calcola 
la lunghezza del lato ed il perimetro, 
e segue il perimetro fino ad incon¬ 
trare il passaggio. Qui valuta nuova¬ 
mente se sia più breve la strada per¬ 
corsa o quella opposta e memorizza 
il percorso conveniente aggiungen¬ 
dolo a quello già contenuto nella 
stringa E$. Passa poi al secondo cor¬ 
ridoio interno e poi al terzo, fino ad 
incontrare il cibo. 

Poco tempo dopo appare del nuo¬ 
vo cibo al di fuori del labirinto, ed il 
controllo ritorna al ciclo FOR K (li¬ 
nee 220/500). Questa volta però la 
lunghezza della stringa R$ non è 
uguale a zero, perché R$ (R$ = E$) 
contiene il percorso memorizzato 
quando Tobia ha percorso la prima 
volta il labirinto. 

Ecco quindi che il controllo passa 
alle linee 260 e 261 e rimane a queste 
linee finché la stringa R$ non èesau- 
rita cioè finché non è stata ripercor¬ 
sa tutta la strada (questa volta la più 
breve) per uscire dal labirinto. 
Tobia continua a correre dentro e 
fuori dal labirinto perché il cibo ap¬ 
pare una volta dentro e una volta 
fuori. Ogni volta la subroutine 2000 
effettua il doppio ribaltamento della 
stringa E$, contenente il percorso 
completo. 

Fermando il programma con il 
BREAK e dando nuovamente il 
RUN, la stringa E$ viene azzerata; il 
computer genera un nuovo labirinto 
e tutto ricomincia da capo. 

Le tecniche descritte sono valide, 
con gli opportuni adattamenti, an¬ 
che nel caso di labirinti più comples¬ 
si. 

La subroutine 9250 fa sì che tutto il 
corpo del bruco si muova in accordo 
con la sua testa, secondo le modalità 
descritte nella prima parte dell’arti- 
colo. 

La variabile T (linea 610 e seguenti) 
determina la posizione in cui deve 


essere posto il cibo; se T è uguale a 1 
nel labirinto, se T è uguale a 2 fuori 
dal labirinto. Ne consegue che la va¬ 
riabile T deve assumere per un nu¬ 
mero indefinito di volte, alternativa- 
mente, i valori di 1 e 2 (linea 610). 

Il listato 4 contiene le modifiche 
necessarie per adattare il listato 3 
allo ZX81. 

Il giocoTiro mancino(listato5)si 
svolge su una scacchiera con 9 posi¬ 
zioni: le tre in basso sono occupate 
dalle tre pedine del giocatore (G), le 
tre centrali sono disponibili per gli 
spostamenti, e le tre in alto sono 
occupate dalle pedine del computer 
(S, per Sinclair). 

Il giocatore può muovere solo 
verso l’alto (Sinclair muove verso il 
basso) verticalmente, e può mangia¬ 
re in senso obliquo. Perde chi si tro¬ 
va nella condizione di non poter più 
muovere. 

Per fare la mossa il giocatore bat¬ 
te due numeri: il primo indica la 
posizione di partenza, il secondo la 
posizione che vuole raggiungere, 
sulla sinistra appare una seconda 
scacchiera, che serve unicamente a 
ricordare al giocatore i numeri asso¬ 
ciati alle varie posizioni. 

Con il susseguirsi delle partite il 
computer diventa progressivamente 
più abile. 

Per migliorare la propria strategia 
memorizza nel vettore A tutte le 
mosse fatte, in relazione alle varie 
situazioni di gioco c, quando deve 
muovere, esamina tale vettore A per 
vedere se la situazione attuale si è già 
verificata in precedenza. 

Se trova la situazione nel vettore, 
sceglie a caso una delle mosse con¬ 
sentite rispetto a quella situazione, 
se invece la situazione è nuova, la 
sistema nel vettore con tutte le possi¬ 
bili mosse che possono essere fatte 
partendo da quella situazione. 

Se il computer perde la partita, 
cancella le mosse che lo hanno por¬ 
tato a perdere dalla lista delle possi¬ 
bilità. In questo modo, dopo alcune 
partite, il vettore P contiene quasi 
solo indicazioni relative a mosse 
vincenti. 
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Listato 1. Questo programma è una nuova versione di “ALMENO UNA VOLTA”, presentato nel numero precedente. 
Ciascuno dei due giocatori può conseguire facilmente la vittoria se conosce la strategia delle posizioni vincenti. 
All’inizio il computer non conosce questa strategia, ma l’apprende nel giro di poche partite. 

Per ottenere i caratteri speciali delle linee 7116 e 9932 occorre caricare per prime le linee 9900 e 9920 e dare il RUN. 
Fatto ciò selezionate GRAPHICS e otterrete i caratteri speciali premendo A e B. Caricate normalmente il resto del 
programma. La versione presentata è relativa allo Speclrum. 


1 REM LO SPECTRUM IMPARA 
90 DIM a(33,12) 

10© <30 SUB 9900 
112 LET Vi=0 
114- LET vt=@ 

116 LET cp=l 
116 LET b»d=0 
122 LET ag=© 

124. LET SC=0 
200 GO SUB 9300 

210 PRINT RT 10,0;"COME TX GHIA 

MI ?" 

213 INPUT 3* 

22© IF LEN 9*>10 THEN LET 9*=g* 
< TO 1©) 

225 PRINT g* 

230 PRINT 

240 PRINT "VUOI VEDERE LE REGOL 
E ? CS/N) " 

24-5 PRUSE 20000 

250 IF CODE INKEY*=115 OR CODE 
INKEY*=83 THEN GO SUB 8080 
300 LET C»=0 

302 LET r*="," 

303 LET y*="," 

305 LET tg=© 

310 LET j k =© 

320 LET no» = INT (RND»121+13 
36© GO SUB 7000 

500 LET C»=C»>1 

501 LET tg =0 

502 GO SUB 7700 

504- PRINT RT 2,9;c»;RT 3,l2;vt; 
RT 16,15;" " ; RT 16,15;nu» 

508 IF CRI =1 THEN PRINT RT 13,15 

'510 C PRINT T RT 19,15;"1 PER RGGIU 
NGERE";RT 20,15;"2 PER TOGLIERE" 
520 IF INKEY*»”" THEN GO SUB 95 
00 

530 LET X* = INKEY* 

535 IF CODE X*<>49 RND CODE X*< 
>50 THEN GO TO 560 
550 LET SC=VAL X* 

555 IF sc=l RND nu»<=10 OR sc»l 
RND nun >30 THEN GO TO 560 

556 GO TO 600 
560 LET bmd *510 
562 GO TO 8200 
600 GO SUB 7500 

610 PRINT RT 18,16;"GUANTI NE"; 
RT 19,16; ("TOGLI ?" RND *C=2) + C r ’ 
■AGGIUNGI ?" RND SC*1J 
620 IF INKEY*="" THEN GO SUB 95 
30 

630 LET h*=INKEY* 

64-0 IF CODE h* <4-9 OR CODE H*>52 
THEN GO TO 680 
650 LET »n=VAL h* 

660 IF SC*2 THEN LET *n—»n 
670 LET nun=nu»+»n 
672 LET R*=R*+STR* NUH 
675 IF num <1 OR nu*>31 THEN GO 
TO 680 

677 GO TO 700 
680 LET bttd =620 
682 GO TO 8200 
700 GO SUB 1000 
702 GO SUB 7500 

705 PRINT RT 18,16;"NE HAI";AT 
19,16; ("TOLTI " RND SC*2Ì+("RGGI 
JNTI ** RND SC=l)+h* 


706 IF nu»*l THEN GO TO 4-000 

707 PRINT RT 16,15;" ”;RT 16,1 

5; nu» 

710 GO SUB 7600 

720 PRINT RT 18,1;"TOCCR R ME"; 
RT 19,1; INUERSE 1;"URDO" 

74-0 GO SUB 2000 
750 GO SUB 7600 
755 GO SUB 7500 

760 PRINT RT 18,15;("TOLTI " RN 
D tg <>0) ("RGGIUN. " RND »O0H 
"IO:";tg+ag; INVERSE l; "URI: " 

765 IF nu«=l THEN GO TO 4-200 
770 GO TO 500 
999 STOP 

1000 REM stampa la scacchiera 
101© LET l=INT <nun/6) 

1020 LET c=16 + (nui-t (INT (nuB/6) 

) * 6 ) ) *2 

1030 IF jfc*l RND SC «2 THEN GO TO 
1500 

104.0 IF tg < >0 THEN GO TO 1500 
1060 FOR k = l TO 6 STEP -2 
1060 FOR vmc TO 18 STEP -2 
1070 PRINT RT k,w; 

1090 NEXT W 
1095 LET c *28 
1100 NEXT K 
1110 LET J k *1 
1120 RETURN 
1500 LET k J =18 

1510 FOR k=l+2 TO l STEP -2 
1520 FOR w =28 TO kj STEP -2 
1530 PRINT RT K,W, " 

154.0 NEXT W 
1550 LET k j * C +2 
1560 NEXT k 
1580 GO TO 1120 

1999 REM IL COMPUTER SCEGLIE LR 
MOSSR 

2000 LET tg =0 
2010 LET ag=0 
2012 LET SC=0 
202© FOR 2=1 TO 25 

2025 IF A(Z,12)=0 THEN GO TO 206 
0 

2030 FOR W=1 TO 12 

2032 IF R(Z,U)=0 THEN GO TO 2050 
2040 IF nuo>a(z,w) RND nuR-a (z,w 
> <5 THEN GO TO 2200 
2050 NEXT W 
2060 NEXT Z 

2070 LET tg=INT (RND*4)+1 

2072 IF nun-tg <1 THEN GO TO 2070 

2080 GO TO 2900 

2200 LET tg=nu«-a(z,w) 

2900 LET nuRanun-tg 

2905 LET y *=y *+STR* num+"," 

2910 GO SUB 1000 
2920 RETURN 

4000 PRINT RT 10,18;“O.K. HAI";A 
T 11,18;"VINTO TU" 

4010 LET Vt=Vt+l 
402© PRINT RT 18,15;" 

4030 PRUSE 20000 
4035 LET t $ = r * 

4040 GO TO 4225 

4200 PRINT AT 10,18; "HO UINTO IO 

4220 LET viavi+l 
4222 LET t*=y* 
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Seguito listato 1. 


4-225 PRINT flT 19,15; INVERSE 1; " 
PREMI UN TOSTO";RT 20,15;"PER CO 
NTINURRE" 

4-226 L.ET cp=cp+l 

4227 PRINT RT 16,15; FLASH 1;" 1 


THEN GO SUB 95 


4226 IF INKEY ** 1 
00 

4235 GO SUB 4500 
424© GO TO 300 
4500 DIM b ( 12 ) 

4520 FOR Z =12 TO 1 STEP -1 
4530 LET t*=t*( TO LEN tl-1) 

4540 FOR W=LEN t* TO 1 STEP -1 
4550 IF t*(W)=",* THEN GO TO 457 
0 

4560 NEXT w 

4570 LET b(Z)=VAL t*(w+l TO ) 
4580 LET t*=t*( TO W ) 

4590 IF LEN t* = l THEN GO TO 461© 

4600 NEXT Z 

4610 FOR Z=1 TO 25 

4620 LET SW=0 

4630 FOR U> =12 TO 1 STEP -1 

4640 IF a(Z,U«)=b(W) THEN LET SW~ 
SW +1 

4641 IF SW>=4 THEN GO TO 4S00 
4645 IF a(Z,W)Ob(W) THEN GO TO 
4670 

4650 NEXT ai 
4670 NEXT X 
4680 FOR Z*i TO 25 

4690 IF a (Z,12) =0 THEN GO TO 472 
0 

4700 NEXT Z 
4710 RETURN 

4720 FOR W=12 TO 1 STEP -1 
4730 LET a (Z , w) =b(w) 

4740 NEXT W 
4750 RETURN 

4800 IF a (25,12) 00 THEN RETURN 
4810 FOR »*1 TO 25 

4820 IF a (tu , 12) s 0 THEN GO TO 4B4 
0 

4830 NEXT W 

4840 FOR J =W TO 2 STEP -1 

4850 FOR S=*l TO 12 

4860 LET aCJ ,S) *a<J-l ,S> 

4870 NEXT S 
48S0 NEXT J 

4890 FOR J a12 TO 1 STEP -1 
4900 LET a Cl,j) = b < j) 

4910 NEXT j 
4990 RETURN 

7000 REM STRMPR DEL OURDRO 

7005 CLS _ 

7010 PRINT 


■SS 

7820 


àrdili 


’020 FOR k = 1 TO 28 
7022 PRIN7~ PTT k , 0; ' 


;fTT K, 31 ; "I 


7023 PRINT RT k,14;"|" 

7025 NEXT k 
7030 PRINT RT 4,1; "I 

7035 PRINT RT 17,1, 

9 8 5 - 0 Egg 

7045 PRINT RT k,14; 

7050 NEXT k 

7075 PRINT RT l,2;g*;AT 2,2;"MOS 
Sfl“;RT 3,2; "VITTORIE" 

7100 PRINT RT 1, 18; "LO"; RT 2,18; 
"SPECTRUM";RT 3,18;"IMPARA" 

7110 FOR k=4 TO 8 

7111 FOR W »9 TO 12 

7112 INK 4: PRINT RT w , k ; "B" 

7113 "NEXT u> 

7114 NEXT K 


Seguito listato 1. 

7116 PRINT RT 10,2; "H8" ; RT 11,2;" 
iPI"; RT 13,3; "B"; RT 13,8; "ffi"; At 1 

f70;"B";R+ 1179; "BB*';at 10 , 9 ; 
7120 PRINT RT 10,13; "M" ;RT 11 ,1 2 
; ,, 1Ì“;RT 12,13; "É“;OT 13 , 12 ; "Bffl” 
7130 INK 0 

7140 PRINT RT 13,5;"11"; RT 14,6; 
"f";RT 1S,S; " I"; RT 16,6; 

7145 PRINT RT 14,13; “I "; RT 15,12 
, " J" ; RT 16,13; "I r ' 

7199 GO SUB 1000 

7200 RETURN 

7499 REM 16 spazi 

7500 PRINT RT 18,15;" 

II 

7505 PRINT RT 19,15;" 

I» 

7508 PRINT RT 20,15;“ 

It 

7510 RETURN 

7599 REM 13 spazi 

7600 PRINT RT 18,1;" 

7605 PRINT RT 19,1;" 

II 

7607 PRINT RT 20,1;" 

7610 RETURN 

7780 PRINT RT 18,2;"SPECTRUM ";R T 
19,2;"MOSSR ";CM;RT 20,2;"VITTO 
RIE ",VI 
7710 RETURN 
8000 GO SUB 9000 

3020 PRINT "R TURNO POSSIAMO TOC 
L IER E O RG- GIUNGERE DR 1 R 4 CU 
3ETTI ALLA TABELLA CHE VEDRAI S 
ULLfi DESTRA DEL UIDEO" 

3030 PRINT 

8040 PRINT "LE AGGIUNTE SI POSSO 
NO FARE SOLOQUANDO I CUBETTI SON 
O PIU DI 10 O MENO DI 31." 

8050 PRINT 

8060 PRINT "CHI TOGLIE L'ULTIMO 
PERDE. IL TOCCO SUI TASTI DEVE 
ESSERE RAPIDO" 

8070 PRINT RT 21,0; INVERSE 1;"P 
REMI UN TASTO" 

3100 PAUSE 20000 
8118 RETURN 
8280 LET d»b=bmd 
3285 LET bl»d=0 

3220 PRINT «1;AT 1,0; INVERSE 1; 
"INPUT ERRATO RIPETI PREGO" 

3230 PAUSE 120 

3235 PRINT iti; RT 1,0;" 

»l 

3260 GO TO dwb 
9000 CLS 

9020 PRINT TRB 7;"LO SPECTRUM IM 
PARA" 

9©21 PRINT 
PRINT 

9èÌ0RETURN 
9588 IF INKEY * < > " 11 THEN RETURN 

9555 LET o$so$(13) tO$: -LET o* = C$ 
( TO 13): PRINT RT 6,1,0$ 

9556 IF INKEY *<>"" THEN RETURN 
3557 LET p * =p * < 13 > +p * : LET p*ap* 
( TO 13): PRINT RT 7,l;p* 

9558 IF INKEY $ < > ” " THEN RETURN 

9559 LET q*=q*V13)+q*: LET q*=qS 
( TO 13): PRINT RT 8 ,l;q* 

9570 GO TO 9580 

9900 DRTR "a",85,85,85,85,85,85, 
35,85,"b",0,12,2,1,2,12,43,0 
3923- F'TR -^«=1* -TO t2 RERD z*' FOR 
W=© TD7 : RÉRD W ‘e7 ' POKE~USR' z*+w , 
a : NEXT w: NEXT Z 
9932 LET o* = “ J> 7 

9934 LET p* = " ->->->.> " 

9936 LET q* = " .> ->-> 

9950 RETURN 
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Listato 2. Modifiche necessarie per rendere il listato 1 compatibile allo ZX81. La linea REM indica quali linee del listato 
1 non devono essere considerate, le altre linee si aggiungono al listato se hanno numeri diversi, oppure sostituiscono 
quelle con numeri uguali. Per lo ZX80 nuova ROM le linee 520 e 620 devono diventare: PA USE 20000 e si perde l’effetto 
degli uccelli in volo, a causa dello SLOW non attivato. 


1 REM LO 2X81 IMPARA 

3 REM MODIFICHE AL LISTATO X 

4 REM CANCELLARE LE LINEE DAL¬ 
LA 7113 RLLfl 7145.LA 9900 E Lfi © 
32© 

250 IF CODE INKEY*=56 THEN GOSU 
5 800© 

535 IF CODE X*<>29 AND CODE X** 
>3® THEN GOTO 560 
64-0 IF CODE H*<29 OR CODE H*>32 
THEN GOTO 68® 

73® PR INT AT 18,1;"TOCCA A ME"; 
TAB l; "HBÉB" 

76® PRINT AT 18,15; ("TQLTI “ AN 
D TG < >0) +("AGGIUN. “ AND RO< > 0 ) +” 

IO : " ; TG+AG; '•dBgB" _ 

4.000 PRINT AT1Q ■ 18 ; " —I" ; RT 11 

iao® PRi^r^^i^TiSi 

4-33 5 PRINT AT 1 

BSS";at 20,15;"_ 

4-237 PRINT AT 16, 

7 110 PRINT AT 9,4.;" 

'■"mmmmr; TAB 2; “ 

4; mBmì'' ; TAB 3; 

7111 PRINT AT 14-, 6; 

TAB 6 ;- 



Ttab 


; TAB 6; " I" 



3070 PRINT AT 21,0;" 
1§10 POKE 164-18,0 

HsnlShsr 

824-0 PRINT AT 23,0, " 



8250 

9500 

9553 

9554- 

9555 

9556 

9557 

9558 

9559 

9560 

9562 

9563 
9564. 

9566 

9567 

9568 

9569 
957© 
9572 
9574- 
9580 
9932 
9934 
9936 
9950 


POKE 16416,2 

IF INKEY $ < >"" THEN RETURN 
LET 09=0$(LEN O*) +OS 
IF INKEY*<>"" THEN RETURN 
LET 0*=0*( TO LEN O*-!) 

IF INKEY*<>"“ THEN RETURN 
PRINT AT 6,1; O* 

IF INKEY*<>"" THEN RETURN 
LET P*=P*(LEN P*) +P* 

IF INKEY *•<>"" THEN RETURN 
LET P*=P§( TO LEN P*-l) 

IF INKEY*<>“" THEN RETURN 
PRINT AT 7 , l; P* 

IF INKEY* <>" f ' THEN RETURN 
LET ©*=Q*tLEN Q*)+Q* 

IF INKEYÌO”" THEN RETURN 
LET Q*=Q*( TO LEN Q*-l> 

IF INKEY*<>"" THEN RETURN 
PRINT AT 8,1; Q* 

IF INKEY* < > "THEN RETURN 
GOTO 9500 

LET 0*=" > > 

LET P* = " > >>>> " 

LET 9*=" > >> 

RETURN 


Listato 3. Questa volta il bruco Tobia deve raggiungere il cibo all’interno di un labirinto e deve poi uscire alla svelta per 
afferrare il cibo che appare fuori. Per fare ciò, la prima volta che entra nel labirinto segue un percorso fisso scegliendo 
sempre la direzione a sinistra (vedi la figura 3 in alto). Al ritorno però sceglie senza indugi la strada più corta (figura 3 in 
basso). Entrando nel labirinto, il bruco ne studia la struttura e le posizioni delle porte e utilizza questi dati ogni volta che 
lo ripercorre. La versione presentata è relativa allo Spectrum. 


1 REM TOBIA NEL LABIRINTO 
70 GO SUB 300® 

_ -60—l ,FT. Tj=;0 • 1 FT. JP * = ■ t ,FT_ _F* = 

LET SUITCH»0 
100 DIM P(6) 

102 DIM 0(6) 

110 LET X«1B 
120 LET Y = 10 
130 LET L =10 
140 LET C =25 

150 LET A*=CHR* 144+CHR* 145+CH 
R* 145+CHR* 145+CHR* 145+CHR* 32 
160 FOR K =1 TO 6 
17® LET P(K)=L 
180 LET Q(K)=25+K 
190 NEXT K 
195 PRINT RT L,C;A* 

200 GO SUB 9000 

206 PRINT AT 10,10;"#“ 

220 FOR K = 1 TO 500 
230 PRINT AT L,C; 

235 IF L»Y AND C=.X THEN GO SUB 
1000: GO TO 600 

238 IF ATTR (L,C)«57 THEN GO TO 

700 

245 IF SUITOH=0 THEN LET R*=E*: 
LET SUITCH-1 

250 IF LEN R*=0 THEN GO TO 335 

260 LET L=L + (R* (1) ="B") - (R* (1) = 
"A" ) 

261 LET C=£X+(R*(1) = "D"Ì - (R*(l) = 
"S") 

262 GO SUB 925® 

264 LET R*«R*(2 TO ) 


255 GO TO 250 

335 GO SUB 9250 

336 LET C1*C: LET L1=L 

337 LET C=C-(X<C) + CX>C) 

340 LET L=L— (Y<L) + (Y>L) 

350 GO SUB 100O 

500 NEXT K 

600 PRINT AT Y-l,X; FLASH 1;"AH 

605 PAUSE 200 

606 PRINT AT Y-1,X;“ ";AT 10,1 

0 ;" '* 

610 LET T-T+l: IF T>2 THEN LET 
T = 1 

612 IF T =2 THEN GO TO 618 

614 LET Y = 10: LET X=26: PRINT R 

6lé èo SUB 2000 

616 LET SUITCH-0: LET R*="": GO 
TO 220 

618 LET Y =10: LET X«10: PRINT A 
TT Y X ’ '* # M 
635 fco SUB 2000 

640 LET SUITCH>0: LET R*="": GO 
TO 220 

700 LET 3*0+(1 AND ATTR (L,C-1) 
=57) + ( 1 ANO ATTR (L,C + 1)=57) 

705 LET SU*®: LET GIU-0: LET DE 
3=0: LET SIN=0 

715 FOR Z =(L AND S=0)+CC AND S< 
>0) TO 0 STER -1 

720 IF S«0 AND ATTR (Z,C)=56 TH 
2N 60 TO 75© 

721 IF S=® THEN LET SU-SU+1 
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733 IF SO® RND f)TTR 
HEN OD TO 75® 

724. XF SO® THEN LET 
73® NEXT Z 

75® POR Z=U_ AND S=0)*tC AND 
>0) TO 21 

755 IF S=© RHD ATTR tZ,C)=56 TH 
~N GO TO 760 

756 XF S=0 THEN LET GIU=GIU+1 
76® XF SO® AND ATTR CL,Z)=56 T 

iEN GO TO 78® 

762 IF SO® THEN LET DES=DES+1 
764. NEXT Z 

76® LET LRTO=SU+GXU+DES+SXN 
762 FOR Z«1 TO 4 
785 FOR U = 1 TO LRTO 
72® LET R«sRtf("B" AND Z = 1)+("S 
" AND 2»2) +rfl'* AND Z=3) + t"D" AN 

r> z= 4.) 

' 792 NEXT U: NEXT Z 
795 LET G$=“" 

80® XF SUfGXU< >0 ANO C>1® THEN 

LET R*=P*(SU+1 TO ì +R*( TO SUJ 

(« 

601 IF SU+GIUo® AND C<10 THEN 
LET R«sRi (LATO*2+GIU+i TO ) +R$ t 
TO LAT042+GIU) +" " 

802 XF DES+SXNO0 AND L<10 THEN 

LET R*=A*(LATO*3+SIN+l TO )+R*C 
TO LATO*3+SXNJ +“ “ 

803 XF DES+SXNO® AND L>1® THEN 
LET R*=R*(LATO+DES+1 TO ì+R*< T 

O LATO+DES)+" " 

815 LET P=® 

816 LET C»C+tC>10 AND S=®)-(C<1 
0 AND S=0) 

818 -UET L-L4 (L.M0-RND. S.4,ve!.^ (L < 
10 AND So®) 

820 FOR H =1 TO LEN R*-l 

825 LET L=L+ CR* (1) = "B*') - (R* (1) * 
•A") 

826 LET C=C+ tR* f 1) = "D") - (R$ (1) * 
■■S"J 

83® GO SUB 9250 

831 LET Ci=C: LET L1=L 

832 IF R$( TO 2)="BB" AND ATTR 
(L/C-l)=58 THEN LET C=C-1: GO TO 

2800 

833 IF R$( TO 2)="SS“ AND 
0=58 THEN LET L*L-1: 


ATTR 
GO TG 


(L—1, 

250® 

834. IF R* ( TO 2) ="AA” AND ATTR 
<L,C+1)=SS THEN LET C=C+1: GO TO 
2500 

835 IF R*( TO 2)="DD" AND ATTR 
<L+1,C)=56 THEN LET L=L + 1: GO TO 
253® 

839 LET G*=Gt+R*tl): LET R*=R*1 
2 TO J: LET P=P+1 
84.® NEXT M 

850 IF P <LATO*2 THEN LET G*=G4 + 
a* C1J : GO TO 900 
865 LET G* = "" 

870 FOR G=LEN R$ TO 1 STEP -1 


Seguito listato 3. 

875 LET G*=G*+("B" AND R*(G)="R 
•'>+«**«" AND RJ(6) ="B") +("D" AND 
A*(G)=”S")+t"S" AND R*(G)="D"1 
880 NEXT G 
SO® LET E$=E*+G* 

905 LET SUITCH = 1: LET R$ = "" 

25® GO TO 24.0 

1000 LET EtsEtlTS" AND C<C-1 AND 

0=10) + C A" AND L <L 1 AND L>=10) 
* t "D" AND OC1 AND G<=10i+f”B" R 
40 L >L 1 AND L i =10) 

105® RETURN 
2060 LET I$ = " , ‘ 

2010 FOR K=LEN E$ TO 1 STEP -1 
2023 LET I*=I*+C"D" AND E*(KJ="S 
■’)+C , S , ‘ AND E* (KJ **‘D’') + t "A" AND 
E$(KJ = "B") +("8” AND E$<K)=“A") 
2030 NEXT K 
2040 LET E*=I* 

2050 RETURN 

2500 LET R$=R*(2 TO ) : LET P=P + 1 
. GO TO 650 

3000 DATA "A",61.102,103,255,255 
.103,102,61,“B",0,85,127,193,193 
,127,85,0 

3010 FOR K = 1 TO 2: READ U$ 

3020 FOR 0=0 TO 7: READ F: POKE 

USR U*+S,F; NEXT O 
3025 NEXT K 
3030 RETURN 

9003 LET- H = 1S.- ■ LET -L3=2 : • -XNK- 1 : 
PAPER 7 

9005 FOR K =1 TO 4 

9010 FOR U=© TO H 

9015 PRINT AT L2,L2+U;CHR* 143 
9013- -PRINT. . AT...L2+W- -L2 1 ' ut 'i 

9020 PRINT AT L2 +W L2; CHR( '143 
9323 PRINT AT L2+U,L2+H;CHR* 143 
9025 NEXT U 
9040 LET A =HS3 tLS 

9042 LET B=INT tRND*4): GO TO 9® 
30+B 

9050 PRINT AT A,L2; INK 2;*‘G 
O TO 9080 

9051 PRINT AT L2,A; INK 2;"+": G 
O TO 9080 

9052 PRINT AT L2+H,A; INK 2; , '+" : 
GO TO 9080 

9053 PRINT AT A,L2+H; INK 2; "+" 

9080 LET L2=L2+2; LET H=H-4 

9081 NEXT K 

9082 INK 0: RETURN 

925® FOR W=6 TO 2 STEP -1 
926® LET P(U) =PtU-l) 

327® LET Q(U)=QCU-i) 

928® NEXT U 

9290 LET P(1 ) =L 

930® LET O(1)=C 

931® FOR U=6 TO 1 STEP -1 

932® PRINT AT PtUJ, Q tU);A$(U) 

933® NEXT U 

9335 BEEP .05,8: BEEP .05,-5 
934® RETURN 


Listato 4. Modifiche necessarie per rendere il listalo 3 compatibile allo ZX81. Valgono le considerazioni già fatte per il 
listato 2. Per lo ZX80 8 Kbyte è necessario aggiungere la linea: 9935 PA USE 50. 


235 

0 

236 

IF L=Y AND 

C=X THEN GOTO 60 

IF PEEK (PEEK 16398+256*PEE 

K 16399)=123 THEN GOTO 700 

245 

IF SUITCH=0 

THEN LET R*=E* 

246 

IF SUITCH=8 

THEN LET SUITCH 

336 

LET C1=C 


338 

LET L1=L 


600 

PRINT AT Y- 

i,X;"EHT 

610 

LET T=T+1 


611 

IF T > 2 THEN 

LET T = 1 

612 

IF T=2 THEN 

GOTO 620 


3. 

REM 

TOBIA NEL LABIRINTO 



ZXS1 

£ 

REM 

LE SEGUENTI LINEE DEL L 

XSTP.TQ 3PECTRUM NON CANNO USATE: 

73, 

72® , 

3S00,3010,3020,3025,3030 

9335 


se 

LET 

T«C 

81 

LET 

R$=‘’ " 

sa 

LET 

E$ = "” 

83 

LET 

SUITCH=S 

156 

LET 

= ^GOCO ■’ __ . 

234 

IF 

_=Y AND C=X THEN GOSUB 1 

000 
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613 LET X=2© 



839 LET P=P+1 

614- LET Y = 10 



850 IF P<LRTO*2 THEN LET G$=G$+ 

615 PRINT RT Y,X;"*" 



R* ( 1) 

616 GOSUB 2000 



351 IF P <LATO#2 THEN GOTO 900 

617 LET SWITCH=0 



905 LET SUITCH=1 

618 LET R$ = "" 



,906 LET Rt = "“ 

619 GOTO 220 



2500 LET R*=R*K2 TO ) 

620 LET Y =10 



2502 LET P=P+1 

621 LET X=10 



250+ GOTO 850 

622 PRINT RT Y,X;"*" 



2800 PRINT RT L,C-1; 

623 GOSUB 2000 



2802 LET RTTR=PEEK (PEEK 16398+2 

624. LET SUITCH=0 



56+PEEK 16399) 

625 LET R$ = "" 



2805 IF R$( TO 2)=”BB" RND RTTR» 

626 GOTO 220 



21 THEN GOTO 2900 

700 PRINT RT L,C-l; 



2810 PRINT RT L-l.. C; 

701 LET RTTR=PEEK (PEEK 16398+2 



2812 LET RTTR =REEK (PEEK 16398+2 

56+PEEK 16399) 



56+PEEK 16399) 

702 LET S=0+(1 RND RTTR=128) 



2815 IF R*( TO 2)="SS" RND RTTR= 

703 PRINT RT L,C+1; 



21 THEN GOTO 2910 

704- LET RTTR =PEEK (PEEK 1639S+2 



2820 PRINT RT L,C+i; 

S6+PEEK 16399) 



2822 LET RTTR=PE£K (PEEK 16398+2 

705 LET S=S+(1 RND RTTR=128) 



56+PEEK 16399) 

706 LET SU=0 



2825 IF R*( TO 2) ="Rfl" RND RTTR = 

707 LET GIU=0 



21 THEN GOTO 292© 

708 LET DE3=0 



2830 PRINT RT L+1,C; 

709 LET SIN=0 



2832 LET RTTR=PEEK (PEEK 16398+2 

716 PRINT RT Z,C; 



56+PEEK 16399) 

718 LET RTTR=PEEK (PEEK 16398+2 



2835 IF R$( TO 2) =“DD" RND RTTR = 

36+PEEK 16399) 



21 THEN GOTO 2930 

719 IF S=© RND RTTR =0 THEN GOTO 



2899 GOTO 834 

750 



2900 LET C=C-1 

722 PRINT RT L,Z; 



2901 GOTO 2500 

723 LET RTTR=PEEK (PEEK 16398+2 



2910 LET L=L-1 

36+PEEK 16399) 



2911 GOTO 2500 

724. IF S<>0 RND RTTR=0 THEN GOT 



2920 LET C=C+1 

O 750 „ 



2921 GOTO 2500 

725 IF S<>0 THEN LET SIN=SIN+1 



2930 LET L=L+1 

751 PRINT RT Z,C; __ „ 



2931 GOTO 2500 

752 LET RTTR =PEEK (PEEK 16398+2 



9003 LET H = 16 

56 PEEK 16399) 



3001 LET L2=2 

753 IF S=0 RND RTTR =© THEN GOTO 



9015 PRINT RT L2..L2+U; 




9013 PRINT RT L2+H,L2+U; 

755 IF S=0 THEN LET GIU=GIU+1 



9020 PRINT RT L2+U.L2; "1" 

756 PRINT RT L , Z; „ „ 



3023 PRINT RT L2+U.L2+H; 

760 LET RTTR=PEEK (PEEK 16338+2 



2042 LET B=INT (RND+4) 

36+PEEK 16399) 



9043 GOTO 9050+8*2 

762 IF S<>0 RND RTTR=0 THEN GOT 



3050 PRINT RT A,L2;"+” 

3 780 



3051 GOTO 9080 

764- IF SO0 THEN LET DES=DES + 1 



2052 PRINT RT L2.R;"+" 

765 NEXT Z 



9053 GOTO 9080 

792 NEXT U 



9054 PRINT RT L2+H,R;"+" 

793 NEXT Z 



9055 GOTO 9©S0 

831 LET C1=C 



2056 PRINT RT R,L2+H;”+“ 

832 LET L1=L 



3050 LET L2=L2+2 

833 GOTO 2800 



9081 LET H=H—4 

834. LET G*=G*+R*(1) 



3082 NEXT K 

835 LET R$=R*(2 TO ) 



3054 RETURN 


Listato 5. Tiro mancino: è un gioco che si svolge su una scacchiera a nove posizioni. Ogni giocatore dispone di tre pedine 
e può muovere solo verso l’alto e mangiare solo in senso obliquo. Perde chi ad un certo punto non può più muovere. Ogni 
partita sì esaurisce in poche mosse, e giocando, il computer diventa più abile. 

Il listato presentato si riferisce allo ZX81 ma il programma gira su Spectrum e ZX80 8 Kbyte senza modifiche. 


4. REM TIRO MftNCINO 
10 OOSUB 3S00 

1S PRINT "QUESTO GIOCO, CHE SE 
ISRfl SEMPLI-CE, E INUECE flBBflSTR 
NZR COMPLES-SO" 

13 PRINT 

14. PRINT "LE G SONO LE TUE P 
COSNC" 

15 PRINT "LE S SONO QUELLE D 
5L COMPUTER'' 

16 PRINT "I * SONO SPAZI UU 
OTI " 


1© PRINT 

20 PRINT "PUOI MUOUERE SOLO UE 
RSO L RLTO UERTICRLMENTE E MHNtJ 
I«RE IN SEN-SQ OBLIQUO UERSO L «. 
LTO" 

£3 PRINT 

SS PRINT "PERDE CHI SI TROUfi N 
ELLR CONDÌ- 2IONE DI NON POTER M 
UOUERE PIU” 

£6 PRINT RT £1,0;"PREMI UN TRS 
TO” 

28 PRUSE £0000 
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30 GOSUB 9000 

32 PRINT "PER FARE LA MOSSA DE 
UI INDICARE DUE NUMERI:" 

34- PRINT "LA CASELLA DX PARTEN 
ZA" 

35 PRINT "E QUELLA DI ARRIUO" 
37 PRINT 

39 PRINT "LA SCACCHIERA E DISE 
GNATR A DE- STRA. SULLA SINISTRA 
PUOI UEDEREI NUMERI DI CASELLA 
PER TUA COMODITÀ" 

4-1 PRINT AT 21,0; "PREMI UN TAS 
TO" 

45 PAUSE 20000 
50 GOSUB 9000 
90 DIM A(100) 

100 DIM B(9) 

120 DIM C(5) 

125 LET E=-l 
130 LET D = 1 
210 FOR K = i TO 3 
220 LET B(K)=E 
225 LET B CK+3) >0 
240 LET B(K+6)=D 
250 NEXT K 
260 GOSUB 1000 

111 PRINT 1 ‘" lifatofa Mg « ■ i (DA. « 

m m ) ** 

310 INPUT MOS 

320 LET N«INT (MOS/10) 

325 LET CON=D 

332 LET Z»MO3-N*10 

350 GOSUB 8200 

360 IF SB<>0 TMEN GOTO 310 

368 LET B(N)=0 

38© LET B(Z)=D 

390 GOSUB 1000 

41© LET CON=E 

420 GOSUB 6000 

433 IF WD*0 THEN GOTO 6O0 

44© PRINT "PREMI UN TASTO PER K 

» 

'460 PAUSE 2000© 

460 GOSUB 7000 

470 LET B(N)—0 

480 LET B(Z)=E 

490 GOSUB 1000 

510 LET CONsD 

520 GOSUB 5000 

530 IF UD>0 THEN GOTO 300 

536 PRINT 

540 PRINT "HO U I N T O I 

O" 

550 GOTO 620 
600 GOSUB 8000 

614 PRINT 

615 PRINT " MAI U 

X N T O" 

620 PRINT 

630 PRINT "UN TASTO PER CONTINI) 
ARE" 

640 PAUSE 20000 
650 GOTO 200 
660 STOP 
1000 GOSUB 9000 
1020 FOR K»0 TO 2 
1830 LET X=3*K+1 

1040 PRINT TAB 8; X; " "jX+lj" ";X 
+2;TAB 16; 

1050 FOR Y=0 TO 2 
1060 LET Q=B(X+Y> 

1070 IF Qa0 THEN PRINT " 

1080 IF Q=D THEN PRINT " G 
1090 IF Q=E THEN PRINT “ S"; 

1100 NEXT Y 
111© PRINT 
1120 PRINT 
1130 NEXT K 
1140 PRINT 
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115® RETURN 
5000 LET UD=® 

5020 FOR N = 1 TO 9 

6030 IF NOT (B(N)=CQN) THEN GOTO 
8100 

804© FOR Z = 1 TO 9 
505© GOSUB S20® 

5060 IF SB>0 THEN GOTO 609O 

•507© LET C CUD + 1) =Z+10*N 

308© LET UD=UDfl 

3090 NEXT Z 

3100 NEXT N 

5110 RETURN 

7000 LET UK=0 

7020 FOR K = 1 TO 9 

7030 LET UK=B(Ki+1+3*UK 

7040 NEXT K 

706© FOR Ktl TO 100 

707® LET K1=K 

7©8® IF A(Kl)=0 THEN GOTO 7400 
709© IF A(K1)=WK THEN GOTO 7200 
7095 NEXT K 
7200 FOR K = 1 TO 10 

7210 IF fl(Kl+K)>-1 THEN GOTO 724 
7230 NEXT K 

7240 IF K = 1 THEN GOTO 7300 
7250 LET UKeUKt-INT ( (K-1 > S-RND) 4-1 
7260 LET NsINT (-A(Kl)/i®) 

7270 LET Z = -A (Kl) -10*N 

7280 LET UH-K1 

729® RETURN 

730® GOSUB 8000 

7310 LET UH=100 

7330 LET WD=INT (UD*RND) 

734© LET N = INT (C (UD4-1 ) /1©> 

7350 LET Z=C(UD+1)-!©*N 
7360 RETURN 
7400 LET A(Ki)=UX 
7420 FOR K = 1 TO UD 
7430 LET A(Kl+K)=-C(K> 

7440 NEXT K 

745® LET Ki=Kl4-INT <1+WD*RND> 
7460 GOTO 7280 

3000 IF UH=100 THEN GOTO 8050 
301® FOR U=UH TO 99 
8030 LET A(U)=A(U + i> 

3040 NEXT U 
805® LET A (10O) a® 

8080 RETURN 
8200 LET SB=1 

8220 IF N >9 OR Z>9 OR N<1 OR Z<1 
THEN RETURN 

8230 IF 8(Z)=GON THEN RETURN 
824® IF NOT (B(N)=CON) THEN RETU 
RN 

825® IF (INT ((N-l)/3)-INT ((Z-l 
> /3) ) < >CON THEN RETURN 
8260 LET R=ABS (N-Z) 

8270 IF R=3 AND B(Z)=® THEN GOTO 
6300 

8280 IF (R=2 OR R=4) AND B(Z)=-C 
ON THEN GOTO 8300 
829© RETURN 
8300 LET SB=0 
8310 RETURN 
9©0® CLS 


9011 

9020 PRINT 
NO" 

9021 PRINT 

Lìì 

I40PRINT 
9050 PRINT 
9059 RETURN 


TIRO MANGI 
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Un gioco sullo Spectrum 
anche per chi 
non vuole usare 
il linguaggio macchina 


di Ivano Par buono 

S uperman è un gioco scritto 
completamente in BASIC, 
non può quindi avere la 
grafica o la velocità possibile con il 
linguaggio macchina, ma non è ne¬ 
cessario essere assembleromani per 
scrivere un buon gioco. 

La figura 1 visualizza la situazio¬ 
ne iniziale del gioco, mentre in figu¬ 
ra 2 potete trovare lo schema a bloc¬ 
chi. 

Ecco la descrizione dei punti più 
importanti del programma riporta¬ 
to nel listato 1. La linea 50 serve ad 
azzerare il totalizzatore del punteg¬ 
gio massimo; dalla linea 100 alla 178 
si trova una routine che definisce 
caratteri grafici che devono essere 
inseriti in ordine alfabetico dalla A 
alla I compresa. 

La linea 180 azzera il punteggio 
della partita ed inserisce il conta- 
tempo che inizia da 60 e viene decre- 
mentato fino a 0 dalla linea 650 una 
volta lanciato il programma. 

Dalla linea 300 alla linea 396 vie¬ 
ne creato il quadrato del gioco e i 
grafici interni ad esso, mentre le illu¬ 
strazioni che vanno dalla linea 400 
alla 470 fanno si che Superman pos¬ 
sa essere spostato per mezzo dei tasti 
5-6-7-8 in qualsiasi direzione dando 
cosi la possibilità di uccidere l’alieno 
che si muove per mezzo della funzio¬ 
ne RND alla linea 690. 

Quando Superman uccide l’alie¬ 
no sul video appare una croce e il 
totalizzatore viene incrementato di 
10 punti alla linea 2000. 
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Figura 1. Situazione iniziate del gio¬ 
co: Superman (in alto) deve catturare 
l’alieno (in basso). Questi può muove¬ 
re anche attraverso il muro in diago¬ 
nale. 


La linea 2500 serve nel caso sia 
scaduto il tempo e pulisce lo scher¬ 
mo per fare spazio al punteggio ap¬ 
pena totalizzato e al massimo pun¬ 
teggio realizzato nelle partite prece¬ 
denti. Se si è realizzato un punteggio 
superiore a 100 la linea 2850 riman¬ 
da alla subroutine dalla linea 3000 
alla 3300 che suona una musica 
trionfale e fa apparire Superman in¬ 
grandito al centro dello schermo ter¬ 
minando il gioco. 

Questo programma è stato predi¬ 
sposto per essere giocato anche con 
joystick Kempston e la linea 475 ha 
il compito di fare in modo che ven¬ 
gano seguiti i controlli del joystick. 


5 REM" (Sf IURNO PRRBUONO 
B BEEP 1,5. BEEP 2,12 
?IN^RT 2,6; INK 

3,8, INK 3; “3 U P 
~ 6,5. BEEP 2,24. 

INK 3; 


8 PRINT RT 3,8; 
PHP N”: BEEP . 

9 PRJCNT RT 4-, 8; 


8,24-: BEEP 2,6: INK 1 
. PPINT » T 8,3; "llltlllfcl111llll 
Ululili" INK 2. PRINT RT 9,3; 
•' IDEATO E REALIZZATO DR 
PARBUONO IUANO 
Via R. di CAMBIO 4- 

u •siffiìW'iÉ 

1,9. PRXtTT AT 18,2; INK 4;"5I 
3 UO‘ GIOCARE ANCHE CON 
JOYSTICK KEMPSTON”: BEEP 1,12. 
3EEP 2,2. BEEP .9,24.. PRINT AT 2 

MVHUr'l 

5® LET vi«0 

10® DATA BIN 00011100,BIN 11100 
311,SIN 00101010,BIN 11000001,81 
N 00101010,BIN 00111110,BIN 0110 
0011,BIN 110010B1 
110 DATA BIN 00010000,BIN 01111 
100,BIN 01010100,BIN 10010010.BI 
N 00111000,BIN 00101000,BIN 0100 
0100,BIN 10000010 
120 DRTR BIN 00010000,BIN 0001® 
000,BIN 00010000,BIN 01111100,81 
N 00010000,BIN 0001000®,BIN 0001 
0®0®,BIN 00010000 
125 DATA BIN 00000011,BIN 0000® 
011,BIN 00111111,BIN 00110011,81 
N 00110011,BIN 01B00011,BIN 1100 
0011,BIN 10000011 
13® DRTR BIN 11060000,BIN 1100® 
000,BIN 11111100,BIN 11001100,81 
N 11000610,BIN 11000011,BIN 110® 
0001,BIN 11000001 
135 DRTR BXN O0eO0011.BIN 00011 
111,BIN 00011010,BIN 00011000,BI 
N 00110000,BIN 01100060,BIN 0110 
3600,BIN 11100000 


Listato I. Listato del programma Su¬ 
perman privo della sezione in linguag¬ 
gio macchina. 































READ a : POKE 

F 

READ a : POKE 


READ 


POKE 


READ a: POKE 


Seguito listato Superman 

14.0 DATA BIN 11000000, BIN 11111 
3 0101100», BIN 00011000,21 

N 00001108,BIN 00000110,BIN 0000 
0110,BIN 00000111 
130 FOR F=0 TO 7 
JSR + f , « : NEXT 

160 FOR F=0 TO 7 
JSR ‘ f f , 3 : NEXT 
170 FOR f=0 TO 7 
JSR -'ì'‘ + r,»: NEXT 
172 FOR f=® TO 7 
JSR ,, /|‘+r,a. NEXT 
174- FOR f=0 TO 7 
JSR "*\”+f,a. NEXT 
176 FOR f-0 TO 7: 

JSR a: NEXT f 

178 FOR F=0 TO 7: READ 
JSR "V + f , a NEXT F 

180 LET pu=0. LET tp=60 
200 BORDER 2. PAPER 6; INK 0: C 
US 

210 L_£T d =6 : LET e =10: LET F =16 
: LET 3=14. 

220 LET 

300 PRINT RT 1,0; INVERSE 1; IN 

< -- 


READ 


POKE 


READ a: POKE 
F 

POKE 


310 

320 
=*T a , 
330 
340 

FOR a =1 TO 20 
PRINT INVERSE 
31; 

NEXT a 

PRllVT INVERSE 

l; INK 0; 

li INK 0; \ 

3 S 0 

PRINT Rt 81,8, 

'PUNTI 1 , PU 

NK 2; 

lllllllfll 


370 

PRINT AT 6,2; 

INVERSE 1; 


K 5.: ". tt» 

375 PRINTHT 7,12 ; 

nk 2 _ nnn _ un _ T * ; 

21 ; ••__■' 

380 PRINT AT 18,12; 

INK 2.; '•_»_» " 

394- FOR b = l8 TO 16 


INVERSE l; I 
INK 5;AT 5, 


INVERSE 1; 


INVERSE 


a, IN 
INK 2; Ai 17 
5; AT b, fc; 


e i*c 

s ,, 6”) -- (0*» ,, 7 i 


395 PRINT RT b,4, 

K 4. ; ; AT b,27; 

, b; ; INK 4-; INK 

INK 2;AT 4., b 

396 NEXT b 
4-00 PRINT AT d,e; 

450 LET OjaINKÉY* 

460 LET d 1 =d . LE 
470 LET d=d + (Of: 

LET e=e + (o$ = "8") - (o* = "S") 

475 LET dsd+(IN 31=4)-(IN 31=6) 
LET fi=e+(IN 31=1)-(IN 31=2) 

510 IF SCREEN* (d,e)=• ,, • THEN GO 
TO 2000 

520 IF SCREEN* (d,e)= M _" THEN L 
ET d =d 1 ; LET 6 =« 1 : LET 0*="": GO 
TO 460 

560 PRINT AT d,«; INK 2,»« 

610 IF »$ = •'*' THEN LET C*=d* 

- — — — ■.-*’*ìpo 


650 PRINT AT 0,23;"TEMPC 


I INT 


IF tp <0 TH 


LET 

, g J »” ** THEN L 
GO TO 680 


INK 1, "$ 


BEEP .5,1 
; pu 


ao, PAPER 3,"TEM 
BEEP .9,10 CLS 

"HAI TOTALIZZ 


tp; ” •* : LET tp =tp-.2 
EN GO TO 2500 
660 BEEP .008,5 
670 PRINT AT f ,g;" " 

660 LET flsf; LET gl=9 
690 LET f=f+INT (RND*3)-1 
3 =3 ♦ INT ( RND *3) -1 
700 IF 5CREEN$ (f 
ET r 1; LET g =9 1. 

720 IF SCREEN* <f,g)="" THEN GO 
TO 2000 

750 PRINT RT f,g; 

760 GO TO 400 
2000 PRINT RT f,9 ; 

LET puspu+10 

2020 PRINT RT 0,0;"PUNTI 
2030 BEEP .8,5 
2100 GO TO 200 
2500 PRINT RT 0,15, 

^O 0": BEEP 1,5. 

2600 PRINT RT 6,3 
ato ";pu; ” PUNTI* 

3700 IF PU>VÌ THEN LET Vi=pu 
2800 PRINT AT 12,0; PAPER 6;“IL 
PUNTEGGIO MAX E’ DI PUNTI 

": PAUSE 100 

3850 IF pu>100 THEN GO SUB 3000 
3900 INPUT " PREMI ENTER 

=>ER GIOCARE ANCOR 

A LIME O*: GO TO 180 

3000 FLASH 1. BORDER 1: PAPER 4: 

INK 2. BEEP 1,25: BEEP 3,1: BEE 
A .9,19: BEEP 1,9: BEEP .04,35: 
3EEP 1,2 

3100 FLASH 0. CLS : BORDER 2: PA 
PER 6: FLASH 1. INK 1: PRINT AT 
3,5;"BRAVO BRADO SEI UN": FLA 
3H 1; PRINT AT 10,8;"SUPER SUPE 
3MAN": FLASH 0 

3200 FLASH 1. INK 2: PRINT RT 12 
,14.; "/tv* 

3250 FLRSH 1: INK 2: PRINT RT 13 
, 14, 'V'V’ 

3300 BEEP .07,1: BEEP 2,4: BEEP 
1,9: BEEP 1,9: BEEP .09,12: BEEP 
2,5 

3500 FLASH 0. GO TO 2900 



Figura 2. Diagramma a blocchi del programma Superman. 
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I INIZI ALI22A2IONE I 


I MODULO DI COMANDO IL,S - 

I I-I esegu i I — > 

I IM, F'j T- 



A, I 1 

l< 

1 

1 

i 1 

i X 
■ i£ 

i i 

i i 


/ \ 

/ \ n o 

>/trov i \-> 

\ ? / 

\ ./ 

\ / 

1 5 Ì 

-I.,J- 

MODO 

A 1 

i i 

i |<- 

-1 

MODO 

I 1 

u 

1 

#AI 

#1 

$1 — 

1 MODO 1 

1 CURSORE 1 

1 

t 


1 


#1 A l $1 - 

1 

>1 

1 

1 




1 1gui1 

g - 




1 OPERAZIONI 1 

1 CON I 1- 

1 MARCHI 1 E 

1 




1 




>,<,2 1 I » P» S> DEL 

1 




1 

•v 1 

1 esegui 1- 

1 

1 

-1 



Figura 1. La struttura del programma. Si passa da un blocco all’altro battendo 
i comandi indicati a fianco dei rami del grafo. 

Note: 

$ = qualsiasi altro carattere. 

Esegui = esegui il comando corrispondente al carattere battuto. 


“Screen oriented” 
text editor professionale 
per il DAI 

di Giulio Morpurgo 

Q uesto programma, che 
possiede molte delle carat¬ 
teristiche tipiche dei text- 
editor di alta classe, è stato progetta¬ 
to per poter scrivere un testo, cor¬ 
reggerlo, e stamparlo in modo ordi¬ 
nato e con poca fatica. L’uso del 
programma è facile e veloce da im¬ 
parare, e non richiede alcuna abilità 
particolare. Il programma è scritto 
in BASIC (tranne un certo numero 
di routine Assembler necessarie per 
rendere soddisfacente la velocità di 
esecuzione), e ciò ha un duplice van¬ 
taggio: il programma è facilmente 
modificabile e adattabile a casi par¬ 
ticolari necessari all’utente, e, nella 
maggior parte dei casi, un disastro 
provocato da un comando sbagliato 
può essere rimediato con poca fati¬ 
ca. 

Spero che questo programma 
possa tornare utile a chi, come me, 
possiede questo bel personal com¬ 
puter che ha però il difetto di avere 
poco software disponibile. 


Caratteristiche principali 
del programma 

— Dimensione massima del testo: 
oltre 22000 caratteri (circa 11 pagine 
dattiloscritte); 

— Possibilità di correggere il testo 
posizionandosi sugli errori con un 
cursore; 

— Ricerca e sostituzione automa¬ 
tica di stringhe di caratteri nel testo; 

— Possibilità di introdurre nel te¬ 


sto caratteri ASCII non presenti sul¬ 
la tastiera; 

— Possibilità di definire una parte 
del testo tramite due puntatori 
(“marchi”) iniziale e finale, e di spo¬ 
stare, cancellare, stampare, sostitui¬ 
re questa parte di testo; 


— Controllo automatico di “buf¬ 
fer pieno”, con preavviso quando 
mancano 60 caratteri al riempimen¬ 
to; 

— Uso reso più facile della diver¬ 
sa colorazione che assume lo scher¬ 
mo a seconda delle operazioni che si 
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stanno compiendo e dalla linea di 
comando in fondo allo schermo; 

— Stampa dei testi marginata a 
destra e sinistra, ottenuta sia varian¬ 
do le dimensioni degli spazi tra le 
parole, sia suddividendo le parole in 
sillabe per andare a capo. 


Struttura del programma 

In figura 1 è rappresentata grafi¬ 
camente la struttura text-editor; ter¬ 
minata PINIZIALIZZAZIONE, il 
programma entra nel MODO CO¬ 
MANDO, dal quale può eseguire un 
certo numero di comandi (SAVE, 
LOAD, PRINT...) e rimettersi a dis¬ 
posizione del prossimo comando, 
oppure può entrare in uno dei sotto¬ 
modi MODO A, INSERIMENTO 
TESTO NUOVO, MODO CURSO¬ 
RE, ciascuno con le sue caratteristi¬ 
che, dai quali si ritorna al MODO 
COMANDO battendo il carattere 
Il MODO CURSORE si rag¬ 
giunge anche tramite l’esecuzione 
dei comandi FIND e FIND & SUB- 
STITUTE; in esso sono disponibili 
tutti i comandi necessari per muove¬ 
re il cursore sul video e correggere il 
testo, e da esso si può passare al 
modo OPERAZIONI CON I MAR¬ 
CHI, che consente di definire e spo¬ 
stare una parte del testo. 


I “modi di operazione” 

I diversi modi di operazione sopra 
elencati si differenziano tra di loro 
per le funzioni che compaiono; inol¬ 
tre il riconoscimento del modo in cui 
si trova il programma in un certo 
momento è reso più facile sia dalla 
diversa colorazione che assume lo 
schermo, sia da alcune scritte che 
compaiono nell’ultima riga dello 
schermo. (Questa ultima riga ha la 


MUDO 

COL. SFONDO 

COL. TESTO 

COMANDO 

■ 

B i a n c o 

Nero 

CREAIIONE 
NUOVO TESTO 

Verde 

Nero 

MODO A 

Giallo 

Nero 

CURSORE 

Azzurro 

Nero 

OPERAIIONI 

CON I MARCHI 

Nero 

B i a n c o 

Tabella 1. Associazione tra i colori e i modi di 

operazione. 


tì i 

può' 

sempr e 

d 

i V 

i d 

ere 

una 

par 

o l a 

a > 

tra d 

ue 

cons 

o 

na 

n t 

i ug 

ua l 

i c o 

nsecutive 

b) 

d o p o 

la 

" c " 

s 

eg 

u i 

ta d 

a " 

q" 


c) 

P r i ma 

d i 

una 


"s 

il 

n o n 

doppia 


d) 

d o p o 

una 

ii ^ ii 

> 

11 IVI 

il ^ 

" n " 

o " 

r " s 

e g u i t a 


da un 

a a 

l tra 


C 0 

ns 

onan 

te 



e) 

pr i ma 

d i 

una 


r o 

ns 

onan 

t e 

s emp 

l i ce 


( c i o e 

' p 

rece 

d 

ut 

■Zi 

e se 

gu i 

ta d 

a v o c a l i ) 


Tabella 2. Regole per la divisione delle parole in sillabe. 


funzione di mantenere il dialogo con 
l’utente durante quelle funzioni che 
richiedono la visualizzazione del te¬ 
sto sul video). In tabella 1 sono elen¬ 
cate le associazioni tra modi di ope¬ 
razione e colori dello schermo. 


Descrizione dei comandi 

Esaminiamo ora i diversi coman¬ 
di e le loro funzioni. 

Per comodità, conviene dividere i 
comandi in tre categorie, corrispon¬ 
denti al modo in cui ci si trova quan¬ 
do il comando viene impartito. 


Comandi nel modo comando 

L (LOAD): Permette di caricare 
in memoria un testo dalla cassetta. 

S (SAVE): Permette di memoriz¬ 
zare il testo sulla cassetta, eventual¬ 
mente assegnandogli un nome. Le 
dimensioni del file memorizzato di¬ 
pendono dalla lunghezza del testo, 
perché il programma, prima di sal¬ 
vare la matrice TESTO%, ne modi¬ 
fica la dimensione (linea 1209). 

M (SHOW): Mostra il numero di 
byte ancora liberi per il testo. 

P (PRINT): Permette di stampare 
il testo in memoria. Sono disponibili 
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due tipi di stampa: quella normale e 
la STAMPA MARGINATA. 

La stampa normale serve essen¬ 
zialmente per rivedere il testo sul 
video, senza impaginarlo in modo 
ordinato. Lo scorrimento del testo 
può essere interrotto battendo uno 
“space”, e riprenderà premendo un 
qualsiasi carattere. 

La stampa marginata è invece 
molto più sofisticata: essa stampa il 
testo in modo che risulti sempre alli¬ 
neato a destra, variando la larghez¬ 
za degli spazi tra le parole (se una 
riga inizia con due o più spazi inizia¬ 
li, questi non vengono alterati). Poi¬ 
ché la stampante a mia disposizione 
è grafica, la minima variazione pos¬ 
sibile è di 1/7 di spazio. In questo 
modo è possibile mantenere gli in¬ 
terspazi tra le parole uguali nell’am¬ 
bito della stessa riga. Inoltre, nel ca¬ 
so che si dovesse variare di troppo la 
spaziatura per allineare il testo sen¬ 
za spezzare una parola, il program¬ 
ma è dotato della capacità di andare 
a capo correttamente, spezzando le 
parole in sillabe, seguendo le regole 
elencate in tabella 2. 

Prima di stampare il testo si pos¬ 
sono definire: 

— il numero di colonne, 

— la spaziatura tra le righe, 

— se si scrive su fogli singoli o su 
modulo continuo, 

— il numero di righe in una pagina 
(dopo il quale occorre dare un carat¬ 
tere di next-page), 

— il margine da lasciare a sinistra 
del testo. 

I (INSERT): Questo comando 
provoca l’ingresso nel modo INSE¬ 
RIMENTO TESTO NUOVO. Il vi¬ 
deo viene cancellato, e i puntatori 
reinizializzati (il vecchio testo viene 
perso, ed è recuperabile solo inter¬ 
rompendo l’esecuzione con un 
BREAK, e ripristinando il vecchio 
valore di MAXPUNT%). Tramite la 
tastiera è ora possibile inserire il 
nuovo testo. Per uscire da questo 
modo, e tornare al MODO CO¬ 
MANDO, occorre battere un carat¬ 
tere “#”. 

Per inserire nel testo un carattere 


TEXBUFX 

: 

indirizzo in 

i ziale del 

buff er 



del testo (e 

* c ostante 

) . 

MAXPUNTV. 


: ultimo byte 

occupa t o 

n e l b u f f e r 



del testo. 



TEXTMAXX 


: indirizzo f 

inale del 

buff er 



del testo 



FLINT/.' : 

p 

untatere al b 

ut'ter di t 

esto ; e 1 


u 

sato nel MODO 

CURSORE , 

e p u n t a 


8 

l byte dove s 

i trova il 

caratt ere 


n 

ella p o sizion 

e del c u r s 

o r e. 

RISBUFX 

: 

indirizzo in 

iziale del 

buf f er 



dove vengono 

inseriti 

i caratter 



nel MODO A. 

P rima d i e 

ssere tra- 



s feriti nel 

buffer del 

test o 

RISFTJNTX 


: puntatore a 

l buffer s 

uddett o 

MAX'BUFX 


: indirizzo f 

inale del 

buff er 

SEARCHBU 

IF 

X : indirizzo 

iniziale d 

el buffer 



i n cu i e ( 

memorizza t 

a la strin- 



ga da cere 

are. 


SOSBUFX 

: 

indirizzo i n 

iziale del 

buffer in 



cui e' inemor 

izzata la 

stringa da 



sdstituire. 



WBUFX : 

i 

n d i r i z z o i n i z 

iale del b 

uffer dove 


5 

ono costruite 

le righe 

del testo 


d 

u r a n t e l a sta m P' a ma r g i n 

•81 a. 

WPUNTX : 


Puntatore al 

buffer del 

testo d u- 



rante la stampa margina 

ta 

COLXX ROWX 

! : posizioni 

x e y d e l 

cursore 



durante il 

MODO CURF 

■ORE. 

INI MARK/ 


s valore mar 

co inizi al 

e 

F INMARK7; 


: va l o r e ma r 

co f inale 


L.ASTMARK 

:;v 

: : fla g : =1 

se Culti mo mar co 



settato e ' 

INIMARKX 




. •*> 

se e' FINì 1 

1ARKX 



= 0 

se i due marchi non 



s o n o s e 11 a 

t i . 



Tabella 3. Alcune variabili usate dal programma. 


ASCII non presente sulla tastiera 
del DAI, battere SHIFT FRECCIA 
A SINISTRA; ora introdurre il co¬ 
dice del carattere in questione bat¬ 
tendo i tasti numerici, e poi battere 
di nuovo SHIFT FRECCIA A SI¬ 
NISTRA: il carattere sarà inserito 
nel testo. L’ultimo carattere intro¬ 
dotto così viene memorizzato, e, per 
introdurlo nuovamente, basterà 
battere due volte di seguito il tasto 
SHIFT FRECCIA A SINISTRA. 


Questa operazione è disponibile an¬ 
che nel MODO A e nel MODO 
CURSORE. 

A (ADD): Provoca l’ingresso nel 
MODO A, che consente di inserire, 
attraverso la tastiera, un nuovo te¬ 
sto dentro a quello già esistente, par¬ 
tendo dalla posizione attuale del 
cursore. Al momento dell’esecuzio¬ 
ne del comando, tutto il testo visua¬ 
lizzato oltre la posizione del cursore 
viene cancellato dal video, per la- 
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Tabella 4. Codifica delle caratteristiche dei caratteri nella tabella CHAR. 


Listato 1. Il programma completo di editor e stampa nella versione per 
stampanti grafiche. _ 


IO REM 

J4 REM ♦ * 

13 REM • DAI SCREEN ORIENTED TEXT EDITOR • 

là REM • * 

17 REM • br GIULIO MORPURGO • 

18 REM * • 

20 REM ... 

100 REM.* INIZIALI ZZAIIOk£ **♦♦♦♦♦ 

110 MODE 0»CLEAR 26000 

111 FOXE 4FF05.*40sP0KE » 131.1 SPRINT CHR*ri2)t 
11* DIM ASSEMBLI12B. 0. 1.0» 

120 DIM TESTO'/; 0.37. 0) 

121 DIM GFSETX (41.0.4. 0) • DQDX (40. O) 
l23 GOSUB 30000 

129 WBUEX«25700 

130 RI S8UFX .23000: MAXBUFX*23500! TEXBUFX»»7021 TEXTMAXX• 24900 

131 FLAGX-0 

132 SE ARC H8LEX • 233301SOSBLFX - 25600 

133 MAXPUNTX • TEXBUF 7. » PUNT7. • TEXBUFX 

134 COLX • 0 > ROWX • 23 i MAXCOL'/. • 60 

135 GOSUB 10300 

140 EXI' TO EXIT l TYFE •" 

200 GOTO 1993 

1000 REM - 

1001 REM INSERIMENTO DI UN TESTO NUOUO 

1002 CCLORT 13 0 0 0 

1003 RITX»I 

1005 MAXPLWTX*TEXBUFXiFRINT CHR*( 12) : : GOSUB 10500 

1006 COLX • 0 : ROUX * 23 » MAXC0LX*6O 

1007 GOSUB 10900! PRI NT " INSERIfENTO TESTO NUOVO’» EX 14! 

1008 CURSGR 0-23 

1010 A*GETCUF A»0.0 THEN 1010 
1013 IF A-22.0 THEfl GOSUB 1300 

1020 IF A * ASC (*•"') THEN F1X-ITX*MA>:PLNTX:RTX»liGOTO 1993 

1030 POKE MAXPUNTX. AiMAXPUNTX*MAXPLNTX+1.0!JPUNTX«MAVPUNTX»60T0 12000 

1031 COLX'COLX*1 

1035 PUNTX • MAXPUNT'/.: COLORT 13 0 0 <n GOSUB 10300 
1040 IF A* 13 ThCN PRINT CHPv (2> ! rCOLV.*0:ROUX*ROWX~l 
1030 PRINT CHR»(A)l 

1053 IF A*8.0 THEN MAXFUNTX'MAXPUNTX-2iCOLX«COLX-2 

1056 IF COL VX 0 THEN COLX ’COLX ♦ 1 IMAXFUNTX * MAXPUNTX +1 » GOTO 1056 

1060 IF COLX*MAXCOLX THEN PRINT tCOLX*0:ROUX = RCWX-1 

1065 IF ROUX-O THEN ROUX»1 :GOSUB 10600 :CURSOR COLX.1 

1070 GOTO 1010 

1200 REM-——- 

1203 REM SALVATAGGIO DI UN FILE 

1206 POKE TEX0UF7.-3, MAXFUNTX MOD 236: POKE TEXBUF7.-2. MAXPUNTX/23e> 

1207 B9X=PEEk ( *6F9 > : BAX *PEEK ( #6FA ) 

1208 PRINT CHR»(l2>i 

1210 PRINT "SALVO IL FILE SU NASTRO: DAMMI IL NOE 
1220 INPUT FILENAME4:PRINT 

1230 PRINT "PREPARA IL REGISTRATORE E AVVIALO" 

1234 PRINT *SE SEI PRONTO BATTI UN TASTO* 

1233 B«GETCtIF B=0.0 THEN 1235 

1236 OX-MAXPUNTV.-TEXBUFV.t60! POKE 46F9. DX/2361 POKE *6FA. DV. MOD 256 
1240 SAVEA TESTOX FILENAME* 

1245 POKE 46F9.B9XCP0KE 46FA.BAX 
1250 GOSUB 4000:GOTO 1993 

1300 REM-CARATTERI SPECIALI- 

1305 BX*0 

1310 GOSUB 104001IF A«22 THEN 1330 
1315 IF A<48 OR A>57 TEEN 1310 
1320 BX»BX«10»A-48t GOTO 1310 
1330 IF BX*0 THEN A-OLDSPECIAL ! RETURN 
1335 A'BXiOLDSPECIAL»A!RETURN 

1405 PEM STAMPA DEL TESTO 

1406 POkE *131.1lCOLORT 800 OtPRINT CHR*(12>IiGOSUB 10500 

1407 POKE «FF05,8 

1410 IfEUT -NUMERO COLONKC'!NX!PRINT 

141? IEEUT ‘STAMPANTE vi 1 : l/0*NO * ! FX! PR 1 NT 

1413 IF FX*0 THEN 1420 

1414 IkFUT 'STAMPA MARGINATA M *SI/0-N0 FIX» PRINT 

1415 IKFUT NUMERO RIGHE'!MAXRIGX.\RI6AX*0iPRINT 

1416 INPUT ' ?PAZIATURA*1SPAIX»PRINT 

1417 IEEUT 'FOGLI SINGOLI t 0 >SI/I »N0 > * ! AUTOFORM'/.! PR INT 


sciare spazio al nuovo testo. Il vec¬ 
chio testo sarà poi inserito in coda al 
nuovo quando si uscirà, tramite il 
comando #A, dal MODO A. 

T (TOP OF FILE): Il puntatore al 
testo viene riportato all’inizio, e sul 
video viene visualizzata la prima 
“pagina” di testo. Questo comando 
è molto utile quando, dopo aver in¬ 
serito un testo, lo si voglia percorre¬ 
re dall’inizio con il cursore per posi¬ 
zionarsi sui punti da correggere, e 
per ripartire dopo una interruzione 
del programma volontaria o no. 

F (FIND): Consente di cercare 
una stringa di caratteri all’interno 
del testo. La ricerca inizia dal valore 
attuale del puntatore al testo. Se la 
stringa che si cerca esiste, il puntato¬ 
re si posiziona su di essa, ed il pro¬ 
gramma entra automaticamente nel 
MODO CURSORE; se la ricerca 
non ha successo, viene invece stam¬ 
pato il messaggio “string not 
found”, ed il puntatore conserva il 
suo valore iniziale. 

X (FIND & SUBSTITUTE): Agi¬ 
sce come il comando precedente, 
con la differenza che, se la ricerca ha 
successo, la stringa trovata viene so¬ 
stituita con la nuova stringa. En¬ 
trambi questi comandi sono ripetiti¬ 
vi, nel senso che se si vuole trovare 
due volte di seguito la stessa stringa, 
la seconda volta alla domanda 
“find?” è sufficiente rispondere con 
un return. 

FRECCIA IN SU (CURSOR): 
Provoca l’ingresso nel MODO 
CURSORE, nel quale sono a dispo¬ 
sizione vari comandi per spostare il 
cursore attraverso lo schermo, per 
inserire, cancellare, sostituire singo¬ 
li caratteri, e per passare al modo 
OPERAZIONI CON I MARCHI. 


Comandi nel modo cursore 

FRECCIA A SINISTRA: Sposta il 
cursore a sinistra di una posizione, a 
meno che esso non sia già nella pri¬ 
ma colonna; in tal caso il comando 
non viene eseguito. 

FRECCIA A DESTRA: Sposta il 
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cursore a destra di una posizione, 
tranne che nel caso in cui il carattere 
attualmente puntato dal cursore sia 
l’ultimo della riga. 

FRECCIA IN GIU’: Sposta il cur¬ 
sore sul carattere più a sinistra della 
riga successiva, ammesso che questa 
esista. Se il cursore è già posizionato 
sull’ultima riga dello schermo, si ha 
uno “scroll” verso l’alto. 

FRECCIA IN SU’: Sposta il cur¬ 
sore sul carattere più a destra della 
riga precedente, ammesso che esista. 
Se il cursore è già sulla riga più alta 
dello schermo, si ha uno scroll verso 
il basso. 

CHAR DEL: cancella dal video e 
dal testo il carattere puntato dal cur¬ 
sore, e copre il buco lasciato da esso 
spostando i caratteri successivi. 

SHIFT + FRECCIA IN GIU’: fa 
si che il prossimo carattere battuto 
venga inserito nella posizione attua¬ 
le del cursore, e che i caratteri suc¬ 
cessivi vengano spostati per lasciar¬ 
gli il posto. Il cursore viene poi fatto 
avanzare di un posto (se già non è 
sull’ultimo carattere della riga). 

CARATTERE QUALSIASI: vie¬ 
ne sostituito a quello attualmente 
puntato dal cursore. 

: Causa l’ingresso nel modo 
OPERAZIONI CON I MARCHI. 
Da questo modo si può uscire o a 
seguito dell’esecuzione di una ope¬ 
razione con i marchi, o battendo il 
tasto E. 


Comandi nel modo operazioni 
con i marchi 

> (Setta marco iniziale): Il marco 
iniziale punta al carattere dove at¬ 
tualmente si trova il cursore. Ciò si 
nota facilmente osservando che quel 
carattere assume temporaneamente 
uno sfondo bianco. 

< (Setta marco finale): il marco 
finale punta al carattere dove attual¬ 
mente si trova il cursore. Il carattere 
in questione assume temporanea¬ 
mente il colore giallo. 

Z (Cancella i marchi): Resetta a 
zero il valore dei due marchi. 


Seguilo programma di editor. 


i4ia 

1420 

1430 

1440 

1430 

1460 

1463 

1470 

1480 

1483 

1490 

1300 

1310 

1513 

1320 

1330 

1331 
1334 
1333 
1371 
1600 
1603 
loOS 
1610 
1613 
1620 
1623 
1630 
1«>33 
1640 
1 630 
lo31 
1633. 
1800 
1801 
1802 
1803 
1803 
1810 
1812 
1815 
1820 
1823 
1826 
1830 
1833 
1840 
1843 
1830 
1835 
1860 
1865 
1870 

1990 

1991 
1993 
I99o 
2000 
2001 
2010 
2020 
2021 
2030 
2040 
2030 
20c>0 
2070 
2080 
2090 
2100 
2110 
2120 
2199 
2400 
2403 
2410 

3000 

3001 

3002 

3004 

3005 
3007 

3010 

3011 
3013 
3020 
3023 
3030 
3043 
3046 
3048 
3030 
3032 
3055 
3200 
3230 
3251 
3233 

3259 

3260 

3261 

3275 

3276 

3277 
3290 

3300 

3301 
3303 
3310 
3324 
3323 
3328 
3330 

3400 

3401 
3403 

3300 

3301 
3305 
3600 

3602 

3603 

3609 

3610 

3611 

3612 

3613 

3700 

3701 

3702 

3703 
3720 
3722 


4000 

4001 

4002 

4003 
5000 
3001 
3003 
3010 

3020 

3021 


INPUT "MARGINE SINISTRO" : MSXSPRINT 

PRINT CHR*(12)1*GCrSUB 10300 

IF FIXM.O ThCN G0SU8 60001 FIV.. 0 > GOTO 1310 

IF F7.-1 THEN POKE •FF03.8«POKE «131.0 

COLX-O 

FOR IX» I PONT'/. TO FPONTX 

A»GETC«IF A*32. 0 THEN GOSUB 10395 

IF COLX-NX THEN PRINT :COLX*0:GOSUB 1330 

PRINT CHR* iPEEK. ( IX) ) I 

IF PEEK(IX)»13 THEN COL'/.»0:GOSUB 1330 

COLX«COLX*I 

NEXT IV, 

POKE «131.1:POKE «FF05-«40 
PRINT 

GOSUB 103931 GOSUB 4000! GOTO 199*. 

OX»PEEK i«13U iPOlE «131.1 _ _ , 

ROWX*ROWX-l t IF RGW/.*0 THEN ROWX* 1 «CALLM «3o0!CURSOR 0.1 SPRINT TAE <60* • CURSOR 0. 

POKE • 131 • QXlPRIMT SPC'HSXlt 

RETURN 

RETURN 

REM- 

REM LETTURA D! UN TESTO DAL NASTRO 

PRINT CHR*(1 2) t«GOSUB 10300 

PRINT "RICORDI IL NOhC DEL TESTO *? S/N>* 

B»GETCiIF 8*0.0 THEN 1613 
IF B»A5C < "N“) THEN t&30 

INPUT "NOME DEL TESTO"JFILENAME*!PRINT 
PRINT ■•FAMMI LEGGERE" 

IF B’ASC 1 "N“ * THEN LOAOA TESTO/. sGOTO 1630 
LOADA TESTO*/ FILENAME* 

PUWTV.»PEE1 <TEXBUF/-3) ♦256*PEEI' iTE<BUF\-2> 

MA»‘PUNTZ • PUNTX 
GOSUB 40001 GOTO 19*3 

REM -IUSERIM, TESTO N ‘ ' NEL VECCHIO 

COL CRT 14 0 0 0!GOSUB 10300 
PITX*2 

GOSUB 10900 1 PPI NT "MODO A" 1 E>1•:"A-: « C URSOR C CLX ■ W, 

R1SPUNTX-RISBUFX1GOSUB 10300 
A-GETC:IF A = 0.0 THEN 1810 
IF A«22. 0 THEN GOSUB 1300 
IF A ASC 1"•') THEN 1826 
GOSUB 10400 

IF A* ASC < “A* ) THEN GOSUB 1 0000: GOSUB 1 j 1001 GOSUB I (Co*: GOTO iw 

JPUNTX * MA (PUNTX *R l SRUNTX-RISBUFV. ! GOTO 12000 

POt E PISPUNT-... AlPlSPUNTX RISPUNTX*1 1 COLX*CCL *1 

IF A» 13 THEN PRINT ChR>* O 1 !COLX»0«ROW: *ROWZ-t 

PRINT CHF *1 A)ì 


IF A-8 THEN R1SPUNTX «P. ISFUNTX-2• COL*'.*COLX-2 
IF COLX-'O THEN C0LX«COL‘<* 1 : PISPUMT*-. =RISPUNT*..« 1 i GC'TO 1850 
IF COL/»MA»COLX THEN PRINT ! COLT. « 0 : ROWX*ROWX-1 
IF ROWX : 1 ThCN ROWX»1 1 GOSUB 1 0600 : CL«»S0P 0,1 

IF PISRUNTX*MA>BUFX THEN GOSUB 10000: GOSUB 10l60lRlSPUNTX»fiISBUF\ 

GOTO 1810 

REM- 

REM MODULO DI COMANCO 

CURSOP 0.0: PRINT “ORDINA,PAPPONE":TAB‘59) : iCUPSOP COLX.ROWX 
COLOPT 13 0 0 0 
GOSUB 10400 

COLOPT 13 0 0 OiGOSUB 10300iGOSUB 10900 
IF A< >ASC < '• > THEN RT‘/.*0:GOT0 2030 
OH RTV. GOTO 1030.3045 
GOTO 2000 

IF A»ASC 1 "I p > ThCN 1000 
IF A«ASC("S“> THEN 1200 

IF A*ASC ( "P* J THEN I PCiNTX* TE <BLFZ: FPONTX «MAXPtNTX: GOT0 1400 
IF A*ASC < "L") THEN 1600 
IF A»ASCI*A") THEN 1800 
IF A*16 THEN 3000 

IF A * ASC( ' T " ) THEN GOSUB 4COO:GOTO 1993 
IF A*ASC ( "F“ 1 ThCN 7000 
IF A-ASCCX’J THEN 7300 
IF A»ASC(“M") THEN GOSUB 2400:GOTO 2000 
GOTO 1995 

REM-MOSTPA SPAZIO LIBERO— 

GOSUB 10900:CUPSGR 0.0 

PRINT TEXTMAVZ-MAXPUNTXs * BYTE LI BER:I " 1 1 CURSOP COLX. ROWXiRETURN 

REM-MODO CURSORE --- 

COLOPT 12 0 0 0:GOSUB 10300 
GOSUB 10900:PRINT "MODO CURSORE"; EX ! *; 

CURSOR COLX.ROWX 
GOSUB 10400:CURSOR COLX.ROWX 
COLOPT 12 0 0 O:GOSUB 10500 
IF A*ASC» "•* > THEN PTX*2.OtGOTO 1993 
IF A*94.0 ThCN 5000 
IF A'16.0 OR A,19.0 THEN 3025 
ON CA—13) GOSUB 3200. 3300,3400,3300 : GOTO 3005 
IF A* 8 ThCN GOSUB 3600:GOTO 3003 
IF A*21 ThCN 3700 
COLORT 12 0 0 0:GOSUB 10500 
IF PEEK <PUNTX) * 13 ThCN FLAGX* I 
IF A*22.0 THEN GOSUB 1300 

POKE PUNTX,Ai PRINT CHR* (A) :: CURSOR COLX.ROWX 
IF FLAGX*I ThCN FLAGX«O:GOSUB 10300:GOSUB 10200 
GOTO 3005 

REM-CURSORE IN SU- 

PUNTX-PUNTX-(COLX*1) 

IF PUMTZ- TEX’BUFX THEN PUNTX*PlNTX*COLX* 1 1 RETURN 
IF PEEK<PUNTX'■13 THEN 3275 
COLX'39 

ROWX*POWX*I 1 IF ROWX«24 ThCN GOSUB 13000 
CURSOR COLX.ROWX:RETURN 

POKE «575.(PUNTX-I) MOD 256:POKE «376.(PUNTX-1)/2S6iPOKE «578.(TEXBUFZ-l; MOD :* 
CALLM «370 

IPUNTX «PUJNTX-PEEK(«39A)-PEEK 1 «39B)•23o 
COLX* 1 IPUNTX♦39) MOO 60:GOTO 3260 

REM- CURSORE IN GIU' - 

IF ROWX > I ThCN 3324 

GOSUB 10600:CURSOR 0. HPRINT TAB(59): «CURSOR COLX. 2 
ROWX*2JGOSUB 10200!ROWX-2 

CNT7.»MAXPUJNTX-PUNTX: IF CNTX>233 THEN CNTX"235 

POKE «458•CNTX:POKE «45A,COLX:POKE «455.PUNTX MOD 236IP0KF «456.PU4TX 
CALLM «430sERRX-PEEK(«47F >1 IF ERRX 1 ThEN RETURN 

PUNTX'PEEK («433! *236*PEEK ( «436) iROW: ROW*/- I 1 COLX-O 1 CURSOR COLX. ROWX : RETI JRN 

PEM - CURSORE A SINISTRA - 

IF COLX-O THEN RETURN 

COLX-COLX-1: PUNTX«PUNTX-1iCURSOR COLX.ROUX:RETURN 
REM- CURSORE A DESTRA - 

IF (COLX-39 C« PEEK(PUNTX)•13 OR PUNTX>«MAXPUNTX> ThCN RETURN 
COLX»COLX*1 :PUNTX»PUNTX*1 :CURSOR COLX.ROWX:RETURN 
REM-DELETE - 

I NT RAS*/ * PUNTX ♦ 1 1 FINTRASX » MAXPUNTX : INDESX * PUNTX : GOSUB 17000 
MAXFUNTX-MAXPUNTX- 1 
GOSUB 10300 

COLX-COLX-i: IF COL.X<0 THEN FLAGX»! :COLX*OsPUNTX*PUNTX* 1 
CURSOR COLX.ROWX « PUNTX » PUNTX-1 1 GOSUB 10200:GOSUB 3300 
IF FLAGX*1 ThCN FLAGX*0 1 GOSUB 3400 
RETURN 

REM-INSERT- 

RITX»3: JPUNTX*MAX’PUNTX! GOTO 12000 
GOSUB 10400 


1 NTRASX*MAyPUNTX: INDESX-MAXPUNTX* 1 : F1NTRASX-PUNTX: GOSUB 1 71 00 
MAXPUNTX«MAXPUNTX*1 

IF A-13 ThCN PRINT CHR*<32)i 1 CURSOR COLX.ROWX 
IF A-22.0 THEN GOSUB 1300 

POKE PUNTX. AiGOSUB I0300:GOSUB !0200tGOS'JB 3SOO:GOTO 3003 
REM-TOP OF FILE- 

PUNTX * TEX8t.CZ : C URSOR 0,23:COLX'O:ROWX*23>GOSUB 10300 

GOSUB 10200 

RETURN 

PEM - SPECIALI OPERAZIONI CON I MARCHI - 

COLORT 8 13 O OlGOSUB 10500 

GOSUB I0400 

IF A * 94.0 THEN 3045 

IF A»ASC •) THEN GOSUB 5100«GOTO 3603 
IF A*ASCC;"> THEN GOSUB 3200tG0T0 3003 


: ! PO» E «379. ( TEXBUF X- 1 >./ 23o 
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CHAR DEL (Cancella dal video e 
dal testo tutta la zona compresa tra i 
due marchi, estremi inclusi). Il buco 
che si crea viene coperto dallo spo¬ 
stamento all’indietro del testo suc¬ 
cessivo. Resetta anche il valore dei 
marchi. 

I (INSERT): Inserisce, a partire 
dalla attuale posizione del cursore, 
la parte di testo compresa tra i due 
marchi. Il testo che prima era suc¬ 
cessivo al cursore viene spostato per 
lasciare posto all’inserimento. 

S (SOVRAPPONI): La parte di 
testo compresa tra i due marchi vie¬ 
ne sostituita al testo a partire dall’at¬ 
tuale posizione del cursore. 

P (PRINT): Permette di stampare 
la parte di testo compresa tra i mar¬ 
chi. 

NOTA BENE: I 4 precedenti co¬ 
mandi (CHAR DEL, INSERT, SO¬ 
VRAPPONI e PRINT) hanno effet¬ 
to solo se almeno uno dei marchi è 
stato settato. Se nessuno dei marchi 
è settato, i comandi non hanno effet¬ 
to. Se solo uno dei marchi è settato, 
all’altro viene assegnato un valore di 
default; al marco iniziale viene asse¬ 
gnato l’inizio del buffer del testo 
(TEXBUF%), e al marco finale l’ul¬ 
timo byte attualmente occupato nel 
buffer (MAXPUNT%). 

Se invece entrambi i puntatori so¬ 
no settati, ma il puntatore iniziale 
punta più avanti di quello finale, si 
considera solo l’ultimo puntatore 
settato come tale, e si assegna all’al¬ 
tro il valore di default. 

E (EXIT): Consente di tornare al 
MODO CURSORE senza compiere 
alcuna operazione. 


Alcune parole 

sulla stampa marginata 


Come ho già detto prima, la stam¬ 
pa marginata fa uso delle possibilità 
grafiche della mia stampante (Cen¬ 
tronics 154). In particolare, l’invio 
alla stampante della sequenza di ca¬ 
ratteri “ESC % 0” mette la stam¬ 
pante in modo grafico, e l’invio suc¬ 
cessivo di un numero n di caratteri 
“SPACE” provoca un avanzamen- 


Seguito programma di editor. 


5022 

5023 

5024 

5025 

5026 
509B 
5099 
51 00 
510t 
5105 

5200 

5201 

5202 
5205 

5300 
5-501 

5400 

5401 
5403 
5406 
5410 
5420 
*■430 
5440 
5500 

5301 
3502 
5510 

3525 

3526 
5530 

5600 

5601 

5602 

5603 
5610 
5620 

3700 

3701 

5702 

5703 
6000 
6004 
6003 
6010 
6012 
601 3 
6013 
6020 
6025 
6030 
6033 
6040 
6050 
o055 
6060 
6065 
6068 
6070 
6075 
6080 
6100 
6103 
6110 
61 15 
e 120 
6125 
6130 
6170 
6175 
6180 
6185 
6190 
6200 
6203 
6210 
6220 
6225 
6230 
6235 
6240 
6245 
6230 
6233 
6265 
6270 
6273 
6280 
6283 
6290 
6295 

6300 

6301 
6305 
6400 
6403 
6410 
6413 
6420 
6423 
6500 
6303 
6510 
6513 
6520 
6325 
6530 
6533 
6540 
6360 
6570 
6371 
6573 
6376 
6380 
6581 
6600 
6605 
6610 
6613 
6700 
6705 
6750 
6733 
6800 
6801 
6803 
6810 
6815 
6820 
6825 
6830 
6833 
6840 
6830 
©852 
685* 
683o 

6900 

6901 

6902 
6905 
6910 


IF Aa8.0 THEN GOTO 5400 

IF A*ASC(*2*' THEN GOSUB 5300(GOTO 3000 

1F A* ASC CI" 1 ) THEN 3500 

IF A=ASC<“S‘> THEN 3600 

1F A*ASC < “P" > THEN 3700 

IF A*ASC < “E" ) THEN 3001 

GOTO 5005 

REM -MACCO INIZIALE- 

GOSUB 1S100:LA3TMARK,/.= 1 i JNIMARI X = f •MTXiCOLORT 12 0 16-LASTMARK\ OlGOSUB 10300 
RETURN 

REM - MARCO FINALE- 

GOSUB 151001 LASTMAPK.V. »2: FIMMAR1 X.PUNT’.iCGLGRT 12 fi 16—LASTMARt \ 0 

GOSUB 10300 

RETURN 

REM-CLEAP MARI- 

INI MARK7.101 FINMAF K X « 0 : LASTMARl X • 01 GOSUB 152001 RETUR N 
REM —CANCELLA TRA 1 MARCHI — 

GOSUB 16000» IR ERRX*1,0 THEN ERRX*0iGOTO 3000 
MA « FU» ir ; - MA • FUNTX-F 1MMARKX ♦ IMI MAR* -.-1 

IF MA-PUNTX INI MARI \ THEN MA >T i *|TX •! N1 MARI X : GOTO 54 20 

I NTPAi ‘.•FI MMARKX ♦ 1 i FINTRA-; . • MA > " JHT\*F INMARI V- IN I MARI \. : : If-CfcSX* IMIMAPt V,».j ijf, 17000 
GOSUB 3700 
GOSUB 40-10 
GOTO 30on 

REM-INSERISCI LA Zu»IA TRA I MARCHI- 

GOSUB 16000 « IF ERFLM.O THEN Ef-RX - . : GOTO 3005 
RI TV. - 4 : JRUNT V. • MA* RUMTX*F I NMARt X- INI MARK*'.* I ! GOTO 12000 
INTRASX*IN[MAP| X:FINTFASX'FINNARI |N0ES'-.*RISBUFXl GOSUB I *Y 
RISPUNT\»P)Se* R"' *F J NMARt X- I NI MARK X • 1 
GOSUB 10000 

GOSUB IO100:GOSUB 4000:GOTO 3005 

REM-SO .PAPPONI LA ZONA TPA I MARCHI- 

GOSUB loQOOt IF ERE"'.» 1 THEN ERE". -0 : GOTO 7005 
PI TV. -5 : JPuWTX =PUNT*'.»F INNARI".-1NI MARI X : GOTO 1 2000 

IF RUNT:-.*FIMMAPl *.- INIMARI V, l-IA-FUNTX THEN MA -RUNTX * FUWTX *F INMARt. X - J NI MARI X 
INTRASX* IN1 MARI *.:FINTRAS*'.«F INNARI V.l tNOES*'. • PUNTI.: GOSUB 17000 
uOSuB 4000:GOTO 3005 

PEM - STAMPA TRA 1 MARCHI - 

GOSUB 16000: IF ERR7..J THEII ERR V . '0: GOTO 3005 
1 PONT*/: «INI MARI. v.: FP0NTV. *F I NMAEl *.: G»;iS-.B 1400 
'GOTO 3000 

REM —STAMPA MARGINATA— 

GOSUB 6854 
WPUNTX* IRONTX 

IF FEEK. (W»UNTX>*32 AND PEEK (WPUNTX* I ) ‘ -32 THEN WPUNTX*WPUNTX* I 

IF PEEK (WPUNTX ■< ,20 THEN ©015 

•JPLWTy.sWPUNTV.*!» IF PICiAX>0 THEN GOSUB 6910 

IF WPUNTX FP0NTX THEN RETURN 

F0R 17. «0 T0 NX 

G»P£EI (WPUNTX*IX) :POl E WBUFV.k1X.Q7. 

IF G7..13 OR WPUNTX* IV.»FFONTV. THEN GOSUB ©600: GOTO 6010 
NEXT IX 

IF GX«32.0 THEN GOSUB ©403UF 0FKX»I TKCN 17. =NV.: GOSUB ©600: GOTO ©010 
IX. NV. 

QX *PEEK iUPUNTV.. IX) 

ROKE WBUFX » IX- GX 

IF G7.-32 TKCN GOSUB ©4051 IF 0FKX=1 TKCN F8UPX* IX-1 1 GOTO 6100 
IF GX-13 THEN FSUPX• IX— 11FAD7.» 1 : GOTO 6100 

IF PEEMCHARX»GX) IAMD 1*1 *k€N Ci-SUB 6410: IF OF(:*'.= 1 THEN FSUPX* 17.:GOTO ©|.- 
IF IX a N7.♦ 10 THEN FSUPX *NX+10■ GOTO ©106 
IX*IX*1«GOTO 6055 
IX«NX-I 

GX=PEEK (UBLP7.K IX) 

IF 67.*32 ANO PEEK (V6LRX* IX-1 >032 THEN GOSUB ©405: IF 0FKX*1 THEN FU* IX-1 j tO 617' 

IF PEEK(CHAP7.*GV.) 1 AND 1*1 THEN GOSUB ©410: IF OFKX-1 THEN FIMFX* IXJQC-TO ^17 

IF IX-MX-lS THEN FINFX*NX-13:GOTO 6130 

IX» 17.-1 «GOTO ©105 

GOSUB 6930 

SPAC27..SPACIX 

FOR IX.FII-IF7.k1 TO FSUPX 

GX’PEEK (WBUFX*IX) 

IF GX»32 THEN SPAC2X*SPAC2*/.♦ I 
NEXT IX 

ADDOT* ( (NX-1.0) -FINFX> *7. 0: AD-- ADDOT/SPAC1V. 

SUBDOT- (FSLPX- <N7.-l. Oi > *7. 0:SU*SUBD0T/SPAC2X 
IF AD>7.0 ANO SU>2.0 THEN ©300 
IF AD< *2.0 THEN GOSUB 6700:GOTO ©250 
IF SU* *1.0 TI-CN GOSUB 6705: ODTO 6230 
IF AD< -4.0 THEN GOSUB 6700«GOTO ©230 
IF SU:*1.3 THEN GOSUB 6703:GOTO 6230 
IF AD:-7.0 THEN GOSUB 6700(GOTO 6250 
GOSUB ©705:GOTO 6250 

ETÀX*(SRAC*7 «DELTA)'SPAC:DIFX»SPAC‘7kDELTA-ETAX*SPAC 
FOR 1X ■ 1 TO SPAC:OGDX <lXI*ETAX: NEXT IX 
IF DIFX*0 TKEN 6275 

FOR IX-1 TO DIFXt DOD.X < IX) *DODX< 17.) ♦ 1.OsNEXT IX 
JX«0 

FOR IX■WBUFX TO WBURX*LIMX 
G»PEEK( IX) 

IF GX-32. 0 AND 17.-WBUFX. IACTX TKCN GOSUB 6800: GOTO 6300 
POKE «FF06.GX:WAIT MEM »FF03.16.0 
NEXT IX 

GOSUB 6900:GOSUB 6850 

WPUNTX*WPUNTX*L IMX* 1 «FADX: FAD7..0» GOTO 6010 
REM - CONTROLLO ANDATA CAPO - 

6I7.«PEEK <WPUNTX*IX-n :G2X*PEEI (WPUNTX* IX* I ) IGOTO 6413 
G1X-GX»G2X=PEEK «JPUNTX♦IX*l> 


ORKX-O 


IF (PEEK CCHARX«G1X) IAND 32) • (PEEK ■CHAR7.KG2V.) JAI-lD 16) *0 THEN OFKX* 1 
RETiJRN 

REM-SILLABE— 

KX*NX—I 

IF KXvFINFX THEN 6750 

GX*PEEK (UBUF»KX) : IF PEEK <CHAR»GX> IAND 128*0 THEN ©360 
G1X-FEEK CWBUFXkkX-1 I IG2X«PEEK (WBUFX• KX♦ I ) 

IF G17..GX THEN 6570 

IF <G1X*©7 OR GlX*99> AND GX*G1X*14 THEN ©570 

IF (GX * 83 OR GX*113' AND G2X< >GX THEN 6570 

IF PEEMCHARX«G1X> IAND 64=64 THEN 6370 

KX*KX-1iGOTO 6510 

POK E WBUFX« KX.45 « F1NFX* KX 

GOSUB 6950 

ADDOT*(NX-1.0-FINFX)*7.OiAD*ADDOT/SPACIX 
UPUNTX•WPUNTX-1 


GOSUB 67001 GOTO 6250 
REM —- 

FCiR JX»0 TO IXlWAIT MEM «FF03- 16. 0sPOKE «FF06. PEEK (WBUFX* JV,> : NEXT JX 

WBUNTX*WPUNTX»IX*1 

GOSUB 6900 

GOSUB ©850: RETIjRN 

DELTA* ADDCiT : LIMX .FI NFX I SPAC - SPAC l X : RETURN 
DELTA* i-SUBDOT) «LIMX’FSUPXlSPAC • SPAC27.«RETURN 
IF AD :9.0 THEN IX«NX-1 «GOSUB 66001 GOTO 6010 
GOTO 6230 
JX«JX»1 

IF 00DXCJXX7. 0 THEN 6820 
POKE «FF06.32:WAIT MEM «FF03. 16. 0 
DODX(JX) *DODX(J>:>-7. 0 
GOTO 6801 

IF DODX(JX)*0. 0 THEN RETURN 

POKE »FF06. «10: WAIT MEM IIFF03, 16. 0« POKE 4FF06. «25: 'WAIT MEM HFFC-3. I©. OsRO*E «FF'-c. »TO« vA ì 
FOR KX«I TO DODX ( JX > : POK E «FFOo. 32: WATT MEM «FF03. 16. 0U£ - ’ W. 

FOKE »FF06.«lBiWAIT MEM HFF03.16.OiPOKE 6FF06.14:WAIT MEM «PF03.16.0 
RETURN 

REM -A CAPO • MARGINE SINISTRO- 

POKE «FF06. 101 tF MSX*0 THEN RETURN 

FOR 1CX«1 TO MSXiPOKE 4FF06-32:WAIT MEM «FF03.1©■ 0 iHE•T 1IX 
RETURN 

REM-SPAZIATURA- 

IF SPA2X*0 TK€N 6903 

FOR 1IX«1 TO SPAZX« POKE *FF0o. 10: WAI T hCM «FF03. 16. 0 : NEXT 117. 

RIGA7.«R1GAX* l « IF RIGAX< MAXRIGX THEN RETURN 
IF AUTOFORM»! THEN POKE »FF06. 12 


• 4FFOS. le. 0 
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'l||P®E_ _word processor 


to orizzontale di n/7 di spazio da 
parte della testina. L’invio della se¬ 
quenza “ESC SO” ripristina il nor¬ 
male funzionamento della stampan¬ 
te. Poiché non tutti hanno la stessa 
stampante, spiegherò cosa si deve 
fare per adattare il programma al 
proprio caso. 

Per chi ha una stampante grafica: 
adattare le linee 6825-6835 alle ca¬ 
ratteristiche della propria stampan¬ 
te (la linea 6825 invia la sequenza 
per mettere la stampante in modo 
grafico, la linea 6830 invia i caratteri 
di spazio, la linea 6835 riporta la 
stampante in modo non grafico. 

Chi avesse infine intenzione di 
cambiare la logica con la quale si 
decide se allargare o stringere gli 
spazi di una riga, deve modificare le 
linee 6210-6240. 

Per chi non ha una stampante gra¬ 
fica: sostituire le linee 6210-6305 con 
il listato 2. 

Per evitare di andare a capo ad 
esempio dopo un apostrofo, o di co¬ 
minciare una linea con una virgola, 
il programma svolge alcuni controlli 
basati sulle caratteristiche dei vari 
caratteri stampabili; queste caratte¬ 
ristiche sono codificate nella tabella 
CHAR%, tramite le linee DATA 
30205-30210, nel modo illustrato in 
tabella 4. 

Infine, per andare a capo ho usato 
il carattere di “LINE FEED” (codi¬ 
ce ASCII = 10) nelle righe 6852 e 
6902, si salta all’inizio della prossi¬ 
ma pagina ogni volta che nel testo si 
trova il carattere SHIFT FRECCIA 
IN SU (codice ASCII 20) all’inizio 
di una riga, e, per quanto riguarda la 
velocità e il formato di trasmissione, 
l’istruzione POKE #FF05,8 (linea 
111) fissa la velocità a 1200baud,e il 
numero di bit di stop a 2. 


Il controllo automatico 
sul “buffer pieno” 

Per evitare che il testo oltrepassi 
la dimensione massima ammessa, e 
vada ad invadere zone della memo¬ 
ria destinate ad altri scopi, ogni vol- 


Seguito programma di editor. 

«>*15 IF AUTOTOPM-'.mì TH£N GOSUB 103*5 

6*;0 RIGAX - 0 : FETLFN 

o*50 REM-CONTA FAZI- 

6951 SPAC 1 X = 0: 3PAC 2X « O : AC TX = 

6952 IACTV.»0 

6955 FOR l'/.-Cj TO FINFX 

6960 GX F EE! i VBUFX ♦ t X ) 

6961 ir ACTX <> THEM 6964 

6962 IF GX 72 THEM ACT\ I : I ACTX* I\ 

6963 GOTO o9o5 

69o4 IF GX--32 THEM ’TFAC 1 X«SPAC. 1 >,* 1 

6965 NE»T l\ 

a*70 FÉ '■ . Fri 

709» REM-FIMO- 

7001 109001 CUFfOP Il Fu t h 1. • - ' ) « 

7002 IF LENI' r 1 * ‘ -v THEN : OlO 
7004 LX»LENI3T1*> 

70 Oe FO I •••«<» TO L7.-HPC4.E 'EAf-.HE* FX* I". AZC >WIM 1 Tlf I X. 1 i i : NE • T I\ 

7010 IF L*.« 0 THEM 700J 
7020 JSEARCHX «PUNTX 

7u21 Ctm*MA..f UT*'.-» ISEAfiCHX*LX-l • s IF CNTV THEN 7..>:* 

7022- FOIE 6405. ISEARCHX Moti 2Vo:POIE *406-1IfcAPCHX 

7023 I il E «44A- LX:POIE «44B.CNTX MOO - r o:FWE *44C 'JT\ 

7024 GOTO 7030 

7025 CURSOP o. 0:PRINT 'Sirino not f ound'•• TAB'5*i s l Ci » -OR CULX. RCV-.: GOTO 2000 
7030 CALLM *400:ERRX=PEEI <*44D> 

7035 IF EFRX- 0 THEM 702* 

7040 I sEARCHX-PEEK (*405 j *256*PE£I Il4>j;l 

7045 FRI NT CHP* • 12' : : GOSUB 10500: PLUTX F IJNTX-CCLX: RlUX 2? 

7046 IF FUNT\*IEEAPCH>. THEM 7060 

7047 CLR-iCR 0.0 

7050 POKE *5A5-PU»tTX HDD -5->:FvlC *5Ac• FUNTX 256:FO»E *5A& .»»Ptn t *5AD F 

7051 FOI E *608- ' ISEAFCHX» MOD . **3«POKE «ÓO*. ( 1-i M*. i ■ . * 

7052 INIZ:‘.’*BFEV-»8fo*‘23-Rii-2*'0> :FOt E «SAE INIZX MUO 25e- : * Gl E ■ • - \U\J\ . 

70*53 P0INTX-*BFE7-*S6» (Z*-PCV<» «POK.E *60 A. F-7 I NT'-. Wfl I'-& l •’ull »c B- INTX 2 ‘. 

7054 CALLM »5A0 

7055 F 1 MT\ - I -EAFCHX 

70c0 C<X\ ■ FEEr ' »60D> sROWPEEI ' «c-OEi 

7070 IF JJSTT'. 1 THEN 7075 

7072 JFLINT MA> PUNTX»LSOSX-L\: GOTO 12000 

7074 00208 7500 

7075 GOSUB 10200 

7080 OCX• CCO. : ORX *PC«IX : GOSUB 3300 

7090 IF Pi t TTX»12EARCHX THEM 7100 

7091 PUNTX = I SEARCHX : ROWX«ORX: COLX • • X 

7092 IF ROUX*t.O TFCN RCVX = 2 

7093 CUP20R COLX. ROUX 
7100 GOTO 3000 

7300 PEM-FIND AND SUBST I TUTE- 

7301 G0SU6 109001CURSOR <>. 0:RITX«6 

7302 PRINT “Sub*titute"ssINPUT St*:PPINT " w tr.-« : INPUT Si* 

7305 IF LEFHSl*)^ LO THEN 7320 

7307 LX-LENtSl»! 

7310 FOR IX*0 TOLX-1:POK£ SEARCHBUFX* IX-ASC «MI D* < -1 » -IX- 1 l ' : NE « T IX 

7320 IF LX*0 THEN 7301 

7325 IF LEN<S2*> *0 THEN 7350 

7330 LSOSX *L£N(S2*> 

7335 FOR IX«0 TO LSOSX-1 :POKE SGSBUFX*IX.ASCCMID*(S2*. IX. 1*MNEYT IX 

7350 sostx*i 
7360 GOTO 7020 

7500 REM-SUBRCUTINE PER FiS- 

7501 SOSTX=0 

7502 MAXFLr IT'. >MA«'Fl41TX-LX 

7505 INTRASX s ISEARCH"<*LX: II4DESX'ISEARCKC FINTRASV.*MA«PLWTX*LX: GC-UB t 7000 
7510 IF LSOSX *0 THEN RETURN 

7515 INTRASX = MA>RLNTX: INDESX=MAvPUNTX4LS0SX:F)MTRASV.ypUNTX:(. 10 17100 
7530 MAXPtHTX*NAXPUNTXH.SOSX 

7535 FOR IX- TO LSOSX-I : POKE PONTX* IX. FEEK. (SOSSUFX* IX) : NEXT IX 
7540 RETURN 

10000 REM -ROUTINE SHIFT TEXT BUFFER 

10001 IF RISPUNTA.RISBL^X THEN RETURN 

10005 I NTRASX *MA.XPUNTX : INDESX *MAXFTJNTX ♦ RISPUNTX-RISBLF7. : FI NTRASX ‘ FUNTXl C‘ v;. J6 17100 
10020 MAXPUNTX = MA> PUNTX*RISPUNTX-RISBUFX 
10025 RETURN 

10100 REM- INSERISCI NUOVO T4EL VECCHIO 

10101 IF RISPUNT'/.-K RI SBUFX THEN RETLRN 

10102 IF PISPUNTX-1 =RISBUFX THEI4 POI E Pt.NT/., PEEK (R1SBJFX) : GOTO 10116 
10105 INTRASX*RISBLFX:FINTPASXi»RISPUNTX-l : INDESX*PtNTX« GCfSUB 17000 
10116 PUNTX«PUNTX+RISP»>ITX-RISBUF X 

10120 RETURN 

10200 REM- STAMPA DA CURSORE A FINE SCHERMÌ 

10201 DJRSOR 0-0 

10205 CNTX * MAXPUNTX-PUNTX : POKE «568.CNTX MOD Zf^iPOI.E *569. CNTX--256 

I02I0 INIZX = *BFE7-(23-ROWX* »*86— tCOLX)«2.P0KE *508- INIZX MOD 2'61 POI.E «50*. IMIZX'V:- 
10215 P0INTX'*BFE^-*86» (24-ROWO :POKE *5o0.F-0INTX MOD 2561P0I E *561 . POINTX- 7 ' . 

10220 POK^ *50B. COLX : POKE *50D. MA<COLX:POKE *505.FX»4TX MOD 2f*.:POKE *50e. FI 'X'2'6 
10225 POKE *562.*DD:POKE *563.*B3 
10230 CALLM *5-Jf» 

10245 CURSOR COLX. RO.'X: RETURN 

10300 REM -CANCELLA DA CURSORE A FINE SCHERMO 

10305 IF CQLX<59 THEN CURSOR COLX*I.ROWX:PRINT TAB(toO): 

10310 IF ROWXM THEN 10330 

10315 INIZX -- #BFE7- < 23-ROWXI ♦ *86- < C OLX ♦ J ) • 2 

10316 POKE *3aF.ROUX 

10318 PO»:E *3C5. INIZX MOD 256: POKE *3C6. INIZX/236 

10220 POKE »3C8.62-COLX:POKE «39F.32 

10322 CALLM *3C0 

10324 POKE «39F.0 

10330 CURSOR CCLX.ROUX:FETURN 

10395 YX »CURV t CURSCR 0.0:F=RINT 'BATTI UN CARATTERE PER CWTIM lARE” » « CtRSOR COLX. VX 
10400 REM -LEGGI UN CARATTERE- 

10405 POKE *2BA.OiPOKE *288.0«POKE *2BC.0:POKE *2BD.0 
10410 A*GETC:IF A*0.0 THEN 10410 
10415 RETURN 

10500 REM -SET COLORE ULTIMA RIGA- 

10501 POKE *B3E4.*CB 

10502 RETURN 

10600 REM —SCROLL ALTO— 

10605 CALLM *360:CUFSOR O-UPRINT TAB (601 : iCURSOR 0-1 
10610 RETURN 

10700 PEM —SCROLL VERSO BASSO— 

10705 CALLM *300 

10706 CURSOR CURX.22:PRINT CHR*(TX); 

10708 CURSOR 0.23:PRINT TAB(600 : :CURSOR 0.23 
10710 RETURN 

10800 REM -STAMPA UN CARATTERE— 

10801 GX*PEEK(IX1:IF GX*13 THEN PRINT CH?»<2>5 

10802 PRINT CHR*(GX>! : RETURN 

10900 REM -CANCELLA RIGA BASSA.- 

10901 CURSOR 0.0:PRINT TA8(60)>:CURSOP 0-0:RETURN 

12000 REM --CONTROLLO SU BUFFER PIENO— 

12001 IF JPUNTX+60>TEXTMAvX THEN 12020 

12010 ON RI TX GOTO 1031.1830.3702.5510.5605.7074 
12020 GOSUB 10900 

12025 IF JPUNTX TEXTMAXX THEN 12040 

12030 PRINT “ ATTENZIONI SOLO * : TEXTMAXX- JFUNTXl ' BYTE LIBERI': 

12035 CLRSOR COLX.ROWX: GOTO 12010 

12040 PRINT '•élFFER PIENOCURSOR COLX• ROWX 

12045 ON RI TX GOTO 2000.2000,3005.3005.3005.3005 

15000 REM —SCROLL IN SU- 

15001 TX'PEEK <FUNTX*CURX*I):IF TX*12 THEN TX-2 

15002 PUNTX * PLNTX-COLX * GOSUB 10700» ROWX * 23 « CURSOR 0,23 

15004 IP COLX * 0 THEN 15011 

15005 FOR IX«PUNTX TO PUNTX«-CCLX-l 

15006 PRINT CHR»(PEEK(IX>» ::NE>T IX 

15010 PUNTX « PUNTX *CGLX: IF OJRX.59 THEN PRINT CU?* (PEEK (PUNTX» ) : : RETiMJ 

15011 IP PEEI. (PUNTX) =13 TF£M PRINT CHR*(2>: 

15012 RETURN 

15100 POKE «BFE4-(COLX*2)-(23—ROUX»**86.55 

15101 RETURN 

15200 REM-RE-hT COLCRI SO+FMO- 

15205 CALI-M *390 
15210 RETURN 

16000 PEM —R(*JTItC DI PFOTEZIC»* — 
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Alla scoperta del VIC 20 
architettura e tecniche 
di programmazione 


Un libro atteso da quanti - e 
sono moltissimi-hanno 
acquistato uno dei Personal 
Computer del giorno: 
il VIC 20 Commodore. 

Naturale completamento del 
precedente "Impariamo a 
programmare in BASIC con 
il VIC/CBM”, questo 
manuale può soddisfare 
diverse esigenze. 

Ci sono capitoli che trattano 
i file su disco e cassetta, la 
stampante VIC 1515, alcuni 
cartridge come VIC STAT, 

VIC GRAF, SUPER 
EXPANDER. Un’intera parte 
è dedicata alle porte I/O, al 
chip d’interfaccia video, al 
linguaggio macchina del 
calcolatore. Un’ultima 
importante annotazione-tutti 
i programmi che compaiono 
nel testo sono stati provati 
sul calcolatore e sono 
disponibili su cassetta 
e floppy disk. 

300 pagine 
Lire 22.000 
Codice 338 D 


SCONTO 20% AGLI ABBONATI 
FINO AL 28-2-’84 


Il manuale base 
per l’uso del VIC 20 


CEDOLA DI COMMISSIONE LIBRARIA 

VOGLIATE SPEDIRMI 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 


338D 

L. 22.000 



Desidero anche i programmi tu: 

□ Floppy disk a L 25.000 

□ cassette a LI 5.000 


□ Pagherò contrassegno al postino 
il prezzo indicato più L. 2000 per 
contributo fisso spese di spedizione. 


GRUPPO 

EDITORIALE 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


Condizioni di pagamento con esenzione del contributo spese di spedizione: 
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_ su c/c n. 11666203 a voi Intestato 

□ Allego fotocopia di versamento 

_ su vaglia postale a voi intestato 
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Seguito programma di editor. 


ta che si compie una operazione che 
incrementa il numero di caratteri del 
testo viene anche eseguita una su¬ 
broutine che controlla se c’è ancora 
spazio a disposizione. Ogni opera¬ 
zione che abbia come risultato il su¬ 
peramento del limite imposto al buf¬ 
fer del testo viene impedita, e ogni 
operazione che lasci liberi meno di 
60 byte in questo buffer viene ac¬ 
compagnata da una scritta diagno¬ 
stica di avvertimento sulla riga bas¬ 
sa dello schermo. 


Cosa fare in caso di “incidente” 

Come ho già detto all’inizio, il 
fatto che la maggior parte del pro¬ 
gramma sia scritta in BASIC per¬ 
mette di trarsi di impaccio in alcuni 
casi che altrimenti potrebbero avere 
spiacevoli conseguenze. Un coman¬ 
do sbagliato, dato per la stanchezza 
quando siete a tre righe dalla fine del 
vostro testo, un tasto premuto erro¬ 
neamente, un eventuale “baco” del 
programma non vi lascerà ad impre¬ 
care contro la malasorte cercando 
nel frattempo il coltello da harakiri, 
con il quale porre dignitosamente 
fine alla vostra esistenza ormai sen¬ 
za alcun senso, ma, nella maggior 
parte dei casi, vi consentirà ugual¬ 
mente di salvare il vostro prezioso 
lavoro. Facciamo alcuni esempi: 

Avete dato un comando INSERT 
al posto di ADD: per salvare la si¬ 
tuazione dovete: 

— interrompere il programma con 
un “BREAK”, 

— scrivere MAXPUNT% = TEX- 
BUF% + numero caratteri che pen¬ 
sate formino il vostro testo, 

— riprendere il programma con un 
“CONT”, 

— battere un “#” per tornare in 
MODO COMANDO, 

— eventualmente mettersi in MO¬ 
DO CURSORE per controllare se il 
valore di MAXPUNT% dato era 
corretto (e se non lo era tornate in 
MODO COMANDO e riiniziate la 
sequenza da capo), 

— possibilmente salvare il testo su 


Seguito programma di editor. 

1 1 IF H-jIMmM\.F |1*1AR»-, ; T>€f'= F.FPV I : PETURN 

le "C IF IMJMAPf. • THtM IN1MAF» \ - TE •» <F\ 

1 o 0*»3 IF FlKMAPi ••• i TKN FIN’-W'» \-f*A»FUMT\ 

Io'!"'* IF IMIMAFt \ Fl-AtAR» \ THEN 1*010 

I oi’Oa IF LA;. TMAFl \ - ! THFN F I r.-MAAf \ -MA >PUNT\ : GOTO 1 *010 
I 6008 INIMAMV TE-BL-F’-. 
laoto return 

l-i.-.O FEM-TRA0F1- 

17*005 PO» E BT65. INTPAS*. MUO LtolPOKE #30* • INTRA.-’/. 2So 
PC'» E #?Ù8. JN0ES’-. MOD a» FOt C ITO*- IMDESX■ 25e 
17015 PO» E #3"B. FINTF’ASX MOD 25-alFOfE B30C • F IHTPASX 2'.« 

1702" CALLM 
17025 RETURN 

1710" PCM - TRASF2- 

17103 PO».E «323. INTRA;’. I43D 25o:ROfcE #32o. INTPASV25* 

17110 FOKE «328. IMCee\ MQ0 ---«iPOtE #32*- INCES**. 256 
17113 PO» E «326. F INTPAS*/. MOD 25oJRQ»E B32C-FINTPASX • 25r. 

17120 CALLM «32" 

I7125 RETURN 

20000 COFSOP 40. UPPtNT PL#4T». l « CUF SCF CCO.. PCW'lPETL'FN 
30000 PEM — FCijriME IN ASSEMBLER- 

20)601 FOR I\«B3uO TO •4-’FlFEAD A*-.: FOLE I*.. A*-. : NE > T I*. 

30004 -EM-TRASFERÌ MENTI - 

30003 DATA BF5. BC5. #D5. #E5. 421.0. "• «11 - •>. o. 1.0. ... «CO- 7 

30010 DATA BEI. «01 ■ BCi • «Fi. BC*. "• <->■ 0.0» 0.0• 0• "• 0. '>• 0 

30013 DATA #F5.BC5.#05.BE5. #21.0. #11 • 0- 0- 1. 0- 0- «CD- #50-3 

30020 DATA a£l • BOI-BCt. «FI. BC*. 0» "• 0. 0- 0. 0. 0. r.>. 0- 0. 0 

30025 DATA «7E- «12. »7C. BB8. *C2. #4A. 7- «70. •&*». aC8- «23. »13. BC «4". :■ >> 
3003" DATA a7E- a 12.a7C . BB8-4C2.B5A.3. B7&.BB*.ave. b.b #16-»C3- B30.3. o 
30034 REM-SCROLL '.-ERSO IL. BASSO- 

30075 DATA BF7 • BC3» #05 • *E5- B2I - Boi ■ BB**. Bit . BE7. #E* • I . B£D. ab?. B7£. • I 2 • B7C 

30040 DATA ape. BC2. #7*. 3 a7D- «B*. aCA. ago. ?.. a:.E a2B. atf.ajB- aci- #«£<• 7 

30045 DATA BEI. BOI. BC1 • «FI - #C*- 0. ".0.0.0. 0. 0. 0. 0- 0. " 

30054 REM-RESET COLORI iC»CFMO—- 

30-T55 DATA *Fj. bC 5. BD5- BE5- • BEC • BBF • *3E. 2/. «32- aSF. 3. a ’H. 06 • B3a. 

300*6 DATA B3D- i'-A. • A*. 7 • #2B. #ZB- #C3.B*E 3.#3A-asF-3.#30-#CA-#BA ? 

300*3 DATA B32-B8F-'• B2B. B2B.B2B-«L&.BC7.a»: 3-BEI -«DI•»C1•aFl.BC *.0 

300*9 REM -CANCELLA DA CUPQCPE 1M GIU*- 

70070 DATA BF5. BC5. aD5. BE5- #21 • 0. <)■ #3E. 0> #C3. B*E- J. 0. 0. 0.0 
30074 REM-SEFjGLL -VERSO L*ALT0- 

30073 DATA BP3» BC5- B05. #E5. #21 • B73. #B4. all- #ED- #B3. 1- BE7. #B*“. #7E. ai.. B7C 

30080 DATA #B8. #C2- BE'- 1 . 3- #7D- #B*. aCA. BFO. 7. *23. #23. a 13. ai 3. BC3- aDD. 3 

30085 DATA BEI■BOI•BCi•aFI•«C *• 0.0.0. 0.0.0.0.0.0.0 
30084 REM - SEARCH- 

300*0 DATA BF5.#C5.#D5-#E5•#21-0.O.ail■«CE-B*3.#3A.#4A. 4.#4 7. B7fc.aEB 
300*3 DATA #**. aEB- aCA. aie. *■ #2?- # 22 .5. 4 . #2A. NB.4. #7:. ap7- BC2. B3F 
7010f DATA 4. #70-B&7. #C2-B3F-4. B32-B4D-4. #C7. #75. 4.5 BC2-B7A. 4 
30105 DATA »-* • 1. B32- #40- 4.BEI.BOI.BCI•BF1•BC*.823.a 13•BC"•#E•4.82B 
30110 DATA #22■B4B.4.aC2. 4. 4 . 0 . ». 0. 0.0. 0. 0. 0.0- " 

30114 REM-CURSORE GIU'- 

30115 DATA BF5. aC3» BD5. aE5- #21.0» «>. o. 0- #E- "■ #23.5. #C2- #eA. 4 

30120 DATA B3E- 1- B32» 87F. 4. BEI • #Dl. BCI . BF|. BC*. B2&. #7E. #27. «f-s. 13- #CA 
30125 DATA B7*. 4 . BC. B7*. BOó■ c,"• BC2- B5& 4. #22. #55- 4. #C3. a*2 4.0 
3"200 REM - DATI CHAP- 

30201 CHAP\*B4*0 

30202 FGP l*'.»CHARV.*32 TO CHAR*-.» 127: READ C*'. 1 FC-* E I*'.. C"".»NE» T I\ 

30205 DATA 0.21.4-2.2- 10-50.52-3o.21.0. 17.21• 1.21 - 2 

302vo DATA 2.4.2-2-2.2.2-2-2.2-21.21.2.2.2.17 

30207 DATA 2-2» 130.130- 130.2- 130. 130- 130.4. 132- 13". 1**- 194. 194.2 

30208 DATA 13C>. 130. 194. 130. 13u. 2- I 70. 130. 130. 130. 1 30- 37- 21 ■ 4 > 

3020* DATA 21.0.128. 12B. 128.0.128- lIQ.128-4. 132- 128- 1*2- 194, 1*7.0 
30210 DATA 12C. I2B 1*2. 128- 12B»- 128. 128- 128- 128 128.37.5-21.0.') 

30300 FOP I *.. • #500 TO B62F:REA0 A*<*.iPO»E IV.» A’Ci NE rj l>. 

30301 REM - ROUTIRC 10200— 

30305 DATA BF5- BC5- B05. BE5. #21.0. 0. al 1- 0. O.&. 0■ aE. 0. B7£, aFf. 

3030* DATA 13-aCA.#*A.5-aEB-#77.a2B.#2&.aEB-4,#78.BB*.aCA. #78.5- BE5 
30307 DATA a2A.a*e.5. B2&.#22-1*8-5*B7C•BB7•«C2>*2£-5-§7D. #B7.aEl^#»^ 
303'*>8 DATA B5A> 5. #23. BC3- BE- 5- #3©. 2 ■ BEB- B2A, BoO.5- BfcB- #E5- #2A- a©. 

3030* DATA 3.#7A.BBC■BC2-B4B-S.P7B-#B0.aCA.#5*.5.B2*.BFF-#2E a^A.ai* 

30310 DATA #22.B60.5. BEI . 6 0.#C3-B1F.5.BEI.BEI BD1.#Cl•BFI.BC*.0 

30311 DATA 0. 0. 0. 0- 0. (<■ 0. 0* 0- O. BEB. B3*. 2. #C3. #3*. 5 

30330 REM-CURSORE SU- 

30331 DATA BF5. BC5- aC>5. BE5. #21. "• 0. Bll • 0. 0- #7£. aF E. 1 7. #CA- al £ 5. #70 
70332 DATA #BB-BC2-#8A. 5- B7C.B&A.BCA-B8E.3» #28.BC*.B7A-?.#22.B*A.5 
30333 DATA bEI.#D1■BC1•#F 1 .BC* 0.0.O.0.0.0.0. 0.u.0 

30350 FEW -FRINT FINO- 

30351 DATA #F5.BC5-BDO.BE3-#2l•0.0.8I1.0.0-*.0•BE•0.B7E #FE 

30352 DATA 13. BCA. #08-5. BEB.#77-#2B. #26-4. #78.BD*-*0. BCA. aDB- 5. »13 

30353 DATA BE’- #2A. tì. ©• a 7A- #82 • #C2 ■ #CB. 5- #7&. BBD. BE I. BCA- BD3-. 5- »EB 

30354 DATA BC3.BAE-5.#C3.#23- 6- 0.0.aEB-«AF-#77.#47.#2A. BA-c #D 

30355 DATA BCA. BFO. 5. aEB- BF.5- #21 • B7A.BFF.B1*. #22. BA.c. BEI - #C3. # 0 . © 

3035* DATA #CD. BAO- 3. BCD. #10. o- #£. 1. BEB- BES» #21. #8*..0. #1* #EB. «£! 

30357 DATA BEB. BC 3-#RF 5- 0.0. 0.0. 0.0, 0-0.0.0. O.o 

30358 DATA BES* BC5- #21 • «L3- BB4. è. *0. B3*. 32- B2B- #26-5. BC2- #17. ej. BCI 
3035* DATA BEI.BC*. 0. #78-#32.#D.*.#7*.#32.BE.*.BEI.#01•BC1 ■ #Fl.BC* 

30500 RETURN 


6210 IF AD>7. 0 THEN 6500 
6245 GOSUB 6700:GOTO 6250 
6250 DI F'/. - ADDOT 

6255 FOR IX»1 TO SPAC:DQDX<IX)=7:NEXT IX 
6265 IF DIFX=0 THEN 6275 

6270 FOR IX=1 TO SPAC:DQDX(IX)=DODXCIX)+7.0 

6271 ADDOT = ADDOT-7.0:IF ADDOT = 0. 0 THEN GOSUB 6390:GOTO 6275 

6272 NEXT IX 

6273 GOTO 6270 
6275 JX=0 

62B0 FOR IX'WBUFX TO WBUFX+LIMX 
6285 GX=PEEK(IX) 

6290 IF GX=32.0 AND IX-WBUFX>=IACTX THEN GOSUB 6800:GOTO 6300 
6295 POKE #FF06,GX:WAIT MEM #FF03,16,0 

6300 NEXT IX 

6301 GOSUB 6900:GOSUB 6850 

6305 WPUNTX»WPUNTX+LIMX+1+FADX:FADX = 0: GOTO 6010 

6390 FOR HX=1 TO 10:H1X = RND(0. 0)*(SPAC-l. 0):H2X = RND(0. 0)*(SPAC-l.0) 

6391 H3X = D0DX<HIX+1. 0):D0DX(H1X+1.0)=D0DXCH2X+1.0):DODX<H2X+1.0)=H3X 

6392 NEXT HX 

6393 RETURN 


Listato 2. Chi non utilizza una stampante grafica, sostituisca questa linea alla 
corrispondente del listato 1. 
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Un potente 
word processor 


cassetta. 

Avete inavvertitamente premuto 
. il tasto BREAK e il programma si è 
j interrotto: a seconda che il comando 
i CONT venga accettato o no, si han- 
I no due casi: 

i 1) CONT è accettato: potete con- 
j tinuare normalmente, a meno che il 
l programma non fosse in MODO 
CURSORE. In questo caso, poiché 
si è persa la corrispondenza tra la 
posizione del cursore sullo schermo 
e il carattere puntato dal puntatore 
nel buffer del testo, vi conviene usci¬ 
re dal modo cursore, dare eventual¬ 
mente un comando “T”, e poi ri¬ 
prendere il vostro lavoro. 

2) CONT non è accettato (ad 
esempio se stava girando una routi¬ 
ne Assembler); allora vi conviene 
salvare il testo facendo ripartire il 
programma dalla linea 1200 (RUN 
1200); se il programma si dovesse 


interrompere per conto suo, ad 
esempio per STACK OVERFLOW 
ON LINE 1220, fatelo ancora ripar¬ 
tire dalla linea 1235. Dopodiché la 
cosa migliore è fare ripartire il pro¬ 
gramma dall’inizio (RUN), e leggere 
il testo appena salvato. 

Se quanto detto avviene quando 
siete in MODO A, potete perdere in 
questo modo i caratteri che non so¬ 
no ancora stati trasferiti dal buffer 
RISBUF% al buffer del testo (al 
massimo 500 caratteri). 

NOTA : la pressione simultanea 
dei tre tasti REPT, CHAR DEL e 
SHIFT ha lo stesso effetto di un 
BREAK. 

Avvertenze per chi volesse modificare 
il programma 

Questo programma è stato pro¬ 


gettato, codificato, perfezionato e 
corretto in pochi giorni; per forza di 
cose c’è ancora molto spazio per mi¬ 
glioramenti. Piccole modifiche, in¬ 
serimento di nuovi comandi, ed 
eventuali correzioni, non dovrebbe¬ 
ro costare molta fatica. Occorre pe¬ 
rò tenere presente che: 

— una delle routine Assembler fa 
uso del valore di SEARCHBUF%; 
se si modifica questo valore occorre 
modificare anche la linea 30090 so¬ 
stituendo a #CE, #63 il nuovo valo¬ 
re, 

— alcuni indirizzi e parametri ven¬ 

gono passati alle routine Assembler 
in modo un po’ sporco, sostituendo¬ 
li nel codice; occorre perciò fare at¬ 
tenzione a non modificare questo 
passaggio di parametri, per evitare 
inconvenienti. ■ 


Quando il computer parla il linguaggio delle immagini 


La computer grafica rappresenta un campo di 
applicazione dell’informatica relativamente 
nuovo, ma suscettibile di imprevedibili 
sviluppi. Questo volume, nato in 
collaborazione con alcune delle più 
specializzate istituzioni del settore, esamina 
tutte le possibilità di questa scienza nuova e 
affascinante: dall'animazione cinematografica 
e televisiva ai businnes graphics; dalla 

Mauro Salvemini 

COMPUTER 

GRAFICA 

176 pagine. Lire 29.000 
Codice 519 P 


progettazione in architettura a quella in 
elettronica e in meccanica; dalla mappazione 
alla manipolazione tridimensionale delle 
immagini... Realizzata in modo da permettere 
un rapido, ma esauriente approccio 
all'argomento, l'opera si rivolge a quanti 
(lettori-utenti) siano alla ricerca dei necessari 
chiarimenti per una corretta e proficua 
utilizzazione delle tecniche di Computer grafica. 
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quando il computer 
sa fare qualcosa di più 


È bello sapere che ognuno di noi può con¬ 
tare in ogni momento su un amico fidato, 
tanto serio e preciso sul lavoro, quanto 
versatile e disponibile fuori dall’ufficio. Ca¬ 
pace, tra l’altro, di fotografare, disegnare, 
farti l’oroscopo o i bioritmi, prescriverti la 
dieta, scrivere la tua musica, aiutarti nello 
studio e.... sempre pronto per una partita a 
scacchi. 

Il computer, oggi, è anche questo 
e tante altre cose. 


14-18 Aprile 1984. Cinque giorni per presentare al grande pubblico tutto quello che 
di nuovo e particolare si può fare con il computer nel campo del lavoro e dell’hobby. 


COMPUTER SHOW è un’iniziativa del Salone dell’Informatica 

Informazioni e adesioni: 

Segreteria: 20139 Milano - Via Marochetti, 27 - tei. (02) 53.98.267 - 56.93.973 












I 




ìup, zip e swoop 


Suono, non parole 
per Apple II 


di Alessandro Stecchino 

C hi di noi, entrando in una 
arcade (sala di videogio¬ 
chi) e sentendo il frastor¬ 
nante e incessante suono di centi¬ 
naia di laser, missili, bombe ed esplo¬ 
sioni, non ha desiderato essere in 
grado di riprodurli sul proprio Ap¬ 
ple per inserirli nei propri giochi o 
nei propri programmi più diverten¬ 
ti? 

Certamente molti avranno prova¬ 
to ad ottenere risultati simili in BA¬ 
SIC, ma con scarsi risultati. 

Infatti il BASIC non permette 
quella velocità necessaria per otte¬ 
nere i suoni molto acuti e gli effetti 
speciali richiesti per conseguire il ri¬ 
sultato desiderato. 

In questo articolo vedremo alcu¬ 
ne routine che servono a generare 
suoni adatti a giochi e programmi 
vari. 

Queste routine potrete usarle in 
linguaggio macchina o insieme ad 
un programma BASIC che le gesti¬ 
sca. 

Come fare un suono controllabile 

Il listato 1 mostra il sorgente e il 
codice oggetto di una semplice rou¬ 
tine che genera un suono. 

La frequenza e la durata del suo¬ 
no sono controllati mettendo questi 
valori nella locazione di memoria 
301 e 303, per esempio usando il 
programma BASIC del listato 2. 

Il contenuto della locazione di 
memoria 301 è direttamente propor¬ 
zionale al periodo della nota, quindi 


file, name s una txjo r 

CURRENT DATE: 2B/11/B3 


: ASM 


C030- 



1000 

1010 

1020 

1030 

* .- 

* 

*- 

ALTOP 

UNA NOTA 

•EQ TC030 

— 




.1.050 


. OR 

*300 


0300 

A0 

00 

1060 

SUONO 

LDY 

#0 

CARICA DURATA 

0302 ■ 

A2 

00 

1070 

.. 1 

LDX 

#0 

CARICA PERIODO 

0304 

AD 

30 C0 

1080 


LDA 

ALTOP 

FAI CLICK 

030/ - 

GA 


1090 

. 2 

DEX 


LOOP DEL PERIODO 

0308 - 

D0 

FD 

1 100 


BNE 

. 2 


030A- 

38 


1 1 10 


DEY 


LOOP DI DURATA 

030B- 

D0 

F5 ■ 

1 120 


BNE 

. i 


030D- 

60 


1130 


RTS 




SYMBOL TABLE 

C03H- ALTOP 
0300- SUONO 
.01=0302, .02=0307 

0000 ERRORS IN ASSEMBLY 


Listato 1 . Routine per la generazione di un suono. 



Listato 2. Programma per caricare i valori utilizzati dalla routine de! listato I. 
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Ziup, 
zip e swoop 


¥=■ I L_ EE 

NAME : 

F?É*F='I= I CA 

CURRENT 

DATE = 

2B/ 1 1 

/B3 

! ASM 










1000 *- 







1010 * 

RAF FICA 





1020 *-- 

-- 

-- 

-—,- 

r.030 



1030 ALTOP 

.ED 

reo 30 


0000 



1035 LNTR 

-ECI 

*00 





1037 *• 


—- 

-- 




1050 

.OR 

*300 


0 '00- 

A 2 

40 

1060 START 

LOX 

«64 

LUNGHEZZA DEL COLPO 

0302 

A9 

0A 

1070 

LDA 

«10 

NUMERO DEI COLPI 

0 50-4 - 

U5 

00 

1072 

STA 

CNTR 


0306 

AD 

30 C0 

1080 .2 

LDA 

ALTOP 

FAI CLICK 

0309 

BC 

00 E<A 

1082 

LDY 

*BA00,X 

DURATA IMPULSO RANDOM 

030C- 

88 


1085 . 1 

DEY 


LOOP DI DURATA PER IL SINGOLO SUONO 

0:500 

D0 

FD 

1087 

BNE 

. 1 


030F 

CA 


1090 

DEX 


LOOP DEL PERIODO 

0310- 

D0 

F4 

1100 

BNE 

. 2 


0312- 

C6 

00 

1 1 10 

DEC 

CNTR 

PRENDI IL. PROSSIMO COLPO 

0314 

D0 

F0 

1 1 20 

BNE 

. 2 


0316- 

60 


1 1 50 

RTS 



SYMBOL 

TABLE 





C030- 

AL ( (JP 





0000- 

CN FR 





0300- 

START 





.02=0306 

.01=0 

30C 




0000 ERRPRS IN 

ASSEMBLY 




: PR 








Listato 3. Questa sybroutine genera una raffica di “raggi protonici”. 










1010 

1020 

1030 

* LASER 

"SWQUP" 


C030- 


ALTOP .EQ 

*C030 


0000- 


1040 

CONI.IMF . 

EQ *00 


0001 


1050 

LARG.IMP . 

EQ *01 


0002-- 


1060 

CONT. SWOOP 

.EQ *02 




1075 

. OR 

*300 


0300- 

A9 01 

1080 

5W00P LDA 

«l UN IMPULSO PER CIASCUNA 

LUNGHEZZA 

0302- 

85 00 

1090 

STA 

CONT.IMP 


0304 

A9 A0 

1 100 

LDA 

«160 COMINCIA CON LA MASSIMA 

LARGHEZZA 

0306 • 

85 01 

1 1 10 

SIA 

L.ARG. IMP 


0308 - 

A4 00 

1 1 20 

. 1 LDY 

CONI.IMF 


030A- 

AD 30 C0 

1130 

.2 LDA 

ALTOP 


030D- 

A6 01 

1 140 

LDX 

LARG.IMF 


030F - 

CA 

1 150 

.3 DEX 

LOOP PER UN IMPULSO 


0310- 

D0 FD 

1 160 

BNE 

. 3 


0312- 

88 

1170 

DEY 

LOOP PER IL NUMERO DI IMPULSI 

0313 

D0 F5 

1 180 

BNL 

-2 A CIASCUNA LARGHEZZA DI 

IMPULSO 

0315- 

C6 01 

1190 

DEC 

LARG.IMP RIDUCI LARGHEZZA 


031 7-- 

00 EF 

1200 

BNE 

. L 


0319- 

60 

1210 

1220 

1230 

RTS 





» RAFFICA 

DI 5W00PS 


031 A- 

A9 0A 

1 740 

1250 

SWOOP2 LDA 

«10 NUMERO DI COLPI 


031 C - 

85 02 

1260 

STA 

CONT.SWOOP 


031E 

20 00 03 

1270 

. 1 JSR 

SWOOP 


0321 

C6 02 

1 280 

DEC 

CONT.SWOOP 


0323- 

D0 F9 

1290 

BNE 

. 1 


0325- 

60 

1300 

RTS 



SYMBOL 

TABLE 





C030- 

ALTOP 





0000- 

CONI.IMP 





0002 

CONT.SWOOP 




0001- 

LARO.IMP 





0300- 

SWOOP 





.01=03 

08, .02=0 

30A, 

.03=030F 



03 1 A- 

SWÓ0P2 



.01=03 

1E 





0000 ERRORS IN 
sP 

ASSEMBLY 




Listato 4. Routine Laser. Potrete utilizzarla per i vostri giochi spaziali. 
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è inversamente proporzionale alla 
frequenza della stessa. 

La locazionedi memoria 303 inve¬ 
ce contiene il numero di volte per cui 
deve ripetersi il “click” dell’altopar¬ 
lante, cioè è proporzionale alla du¬ 
rata della nota. 


Raffica 

Ma se noi non vogliamo suonare 
la ninna-nanna, ma dobbiamo in¬ 
gaggiare una lotta senza quartiere 
con degli invasori alieni discesi con 
un disco (volante, non floppy)? 

Sostanzialmente l’intervallo di 
tempo tra un click e l’altro è genera¬ 
to in maniera pseudo-casuale, pe¬ 
scandolo da una zona di memoria 
del computer. Si deve scegliere una 
zona che ovviamente contenga dei 
dati, pertanto si è scelta una zona del 
DOS. 

Ecco il programma del listato 3 
che genera una bella raffica di raggi 
protonici. 

Nella locazione di memoria $303 
è contenuto il numero di colpi della 
raffica, mentre nella locazione di 
memoria $301 c’è la lunghezza di 
ciascun colpo. 


Laser, l’arma che salverà la Terra 

Non poteva mancare infine, e la 
trovate nel listato 4, una routine per 
il laser, l’arma delle guerre spaziali 
per antonomasia. 

La routine che parte alla locazio¬ 
ne di memoria $300 fa un solo “swo¬ 
op”, quella che invece inizia alla lo¬ 
cazione di memoria $31A permette 
di fare una raffica di laser (con certi 
alieni è necessaria). 

Alla locazionedi memoria$31Bsi 
può inserire il numero di “swoop” 
desiderati. 

Se con nessuna delle routine pre¬ 
sentate in questo numero riuscite ad 
abbattere l’alieno che sta sul video, 
allora credo che sia meglio che gio¬ 
chiate a Lemonade. Dateci dentro!! 














PROGRAMMI DI MATEMATICA E STATISTICA 

Leggendo questo libro il lettore potrà formarsi quella logica di 
base indispensabile per la risoluzione di problemi di matemati¬ 
ca e statistica. 

Ad ogni programma viene preposta un’esposizione schemati¬ 
ca del metodo numerico e delle tecniche di programmazione 
utilizzate, il diagramma a blocchi relativo all'algoritmo, il li¬ 
stato (anch’esso ottenuto da calcolatore) in cui tra l’altro ven¬ 
gono specificati il tempo e la quantità di memoria impiegati. 

Cod. 522D L. 16.000 Pagg. 228 


INTRODUZIONE AL PASCAL 

Il volume, incentrato su numerosissimi esempi che verificano 
costantemente l’apprendimento del lettore, insegna a conosce¬ 
re, capire ed usare tutte le particolarità e i vantaggi di questo 
linguaggio. Nel corso della trattazione vengono ampiamente 
utilizzate le tecniche di programmazione strutturata, come 
pure tecniche particolari, quali il trattamento dei file, l’utilizza¬ 
zione della recursività e il trattamento grafico. 
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CEDOLA DI COMMISSIONE LIBRARIA 

Ritagliare (o fotocopiare) e Inviare a 

Gruppo Editoriale Jackson Via Roselllnl, 12 - 20124 Milano 
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Indirizzo_ 


Cap-Città-Provincia 

Partita I.V.A. (indispensabile per le aziende) 
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Inviatemi I seguenti libri: 


Co< 

Lèi 
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Libro 
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Codice 

Libro 
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Codice 
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COMPUTER GRAFICA 

Si può dire che la computer grafica si pone nel contesto più 
generale del trattamento deH’informazione, avendo individua¬ 
to neN’immagine un contenuto informativo che è possibile 
elaborare. 


... dalla 

JACKSON 



Quest’opera, con il suo rigore informativo e scientifico, si pone 
come fondamentale nel carente panorama italiano; inoltre le 
informazioni e gli spunti contenuti nel testo contribuiranno 
certamente alla divulgazione ed alla formazione di idee nuove 
e feconde. 
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APPLE II - Guida all’uso 



Se possedete un Apple e volete conoscerlo a fon¬ 
do, se volete comprarlo, o se semplicemente vole¬ 
te imparare la sua programmazione, troverete in 
questo libro, tutte le risposte, comprese alcune 
vere "primizie” che vi occorrono per una perfetta 
operatività del sistema. Conoscerete i vari compo¬ 
nenti del sistema e come usarli al meglio. Verrete 
guidati alla programmazione in BASIC e a usare le 
caratteristiche grafiche e sonore del sistema. Im¬ 
parerete a memorizzare su disco sia programmi 
che archivi dati, come ad inserire un programma 
scritto in assembler in uno scritto in BASIC. 

E poi ancora, tutte le istruzioni e funzioni BASIC e 
ben 12 appendici veramente basilari. 
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Semplice renumber 
_per Spectrum_ 


Questo renumber 
è molto efficiente 
per quanto riguarda 
i numeri di linea, 
ma trascura i GOTO, 
i GOSUB 
ed i RESTORE 


a cura della Redazione 

L a routine in linguaggio 
macchina presentata ci è 
stata inviata da Luciano 
Andrei di Lastra a Signa (FI). Fun¬ 
ziona così: all’inizio HL punta il pri¬ 
mo byte del programma BASIC, 
cioè il byte alto del numero di linea, 
mentre DE contiene il numero di 
linea di partenza (i due byte che con¬ 
tengono il numero di linea sono me¬ 
morizzati nell’ordine: byte più signi¬ 
ficativo, byte meno significativo; 
cfr. p. 218 del manuale italiano). In 
BC viene caricata la lunghezza della 
linea e dopo ADD HL, BC, HL 
pun;a il primo byte dopo la fine del¬ 
ia linea. 

Siccome i numeri di linea arriva¬ 
no fino a 9999, il loro byte alto (o più 
significativo) è sicuramente inferio¬ 
re a 40, mentre se è iniziata la zona 
variabili, si ha un valore maggiore 
od uguale a 64. Le istruzioni CP 64 e 
RET NC causano l’abbandono della 
routine se si è arrivati in tale zona, in 
caso contrario a DE viene sommato 
il “passo” e si ritorna alla terza 
istruzione. 

Accanto alla routine viene pre¬ 
sentato un programma LD & CK 
che carica automaticamente la rou¬ 
tine subito sotto RAMTOP, e gira 
quindi senza modifiche sia sul 16 


S5340 , 

26 


INDIR 

DEC 

HEX 

5534.0 

42 

2fi 

©5341 

©3 

53 

55342 

92 

5C 

o534-3 

17 

11 

65344 

0 

00 

3534-5 

0 

00 

3534-3 

114 

72 

5534-7 

35 

23 

3534-S 

115 

73 

3534-9 

35 

23 

35350 

76 

4E 

5535:1 

35 

23 

S5352 

70 

46 

55353 

35 

23 

55354- 

9 

09 

55355 

126 

7E 

55355 

254 

FE 

55357 

64 

4@ 

55355 

20© 

D0 

55359 

229 

E5 

55360 

33 

21 

55361 

0 

©0 

65362 

0 

©0 

55363 

25 

19 

55364- 

235 

EB 

65365 

225 

E1 

65366 

24 

1© 

53367 

234 

ER 


Figura 1. Output del programma LD 
& CK. Usatelo per controllare l'esat¬ 
tezza dei vostri codici. 


LD HL, (23635) 

42, 83, 92 

LD DE, partenza 

17, 0, 0 

LD (HL), D 

1 14 

INC HL 

35 

LD (HL), E 

1 15 

INC HL 

35 

LD C, (HL) 

78 

INC HL 

35 

LD B, (HL) 

70 

INC HL 

35 

ADD HL, BC 

9 

LD A, (HL) 

126 

CP 64 

254, 64 

RET NC 

208 

PUSH HL 

229 

LD HL, passo 

33, 0. 0 

ADD HL, DE 

25 

EX DE, HL 

235 

POP HL 

225 

JR - 22 

24, 234 



Kbyte che sul 48 Kbyte. Questopro- 
gramma incorpora una routine che 
stampa su ZX Printer quello che ha 
appena caricato, sia in codice deci¬ 
male che in codice esadecimale. Per 
la stampa su video cambiare tutti gli 
LPRINT in PRINT. 

La routine così caricata può esse¬ 
re memorizzata con: 

SAVE “rcnumcode” CODE 
ramtop + 1,28 

per il registratore a cassette, e con: 
SA VE ★ “m”; I; “renumcode” 
CODE ramtop + 1,28 
per il Microdrive. 

Prima di poter impiegare la routi¬ 
ne occorre inserire il primo numero 
di linea ed il passo desiderati. Que¬ 
sta funzione viene svolta dal pro¬ 
gramma renumber presentato. 

◄ 

Listato 1. Assembler della routine 
che effettua la numerazione delle li¬ 
nee. 
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Semplice 
renumber 
per Spectrum 


► 

Listato 2. Un programma sempre uti¬ 
le per caricare i codici. La variabile n 
alla linea 30 contiene il numero di 
byte da caricare. I dati sono alla linea 
300. Viene sfruttato automaticamen¬ 
te lo spazio più vicino alla RAMTOP. 
Il programma gira sia per la versione 
16 Kbyte che 48 Kbyte. 

Siccome occupa i numeri di linea 
alti può essere caricato con MERGE 
e poi caricare la routine risponden¬ 
do con un qualsiasi carattere ed EN- 
TER alla prima domanda. Il pro¬ 
gramma prevede l’uso del Microdri¬ 
ve; se si usa invece il registratore a 
cassette occorre modificare la linea 
9080 così: 

9080 LOAD “renumeode” CODE 
begin, 28 

ed ovviamente, predisporre la cas¬ 
setta. Per usi consecutivi rispondere 
solo con ENTER alla prima doman¬ 
da. 

Osservate infine cosa succede se i 
nuovi numeri di linea superano 
9999. 

Vi suggeriamo un paio di modifi¬ 
che che potreste tentare ed inviarci 
mi raccomando su cassetta) se riesce 
bene (naturalmente occore usare il 
linguaggio macchina). 

1) Rinumerare le linee a partire da 
una certa linea del programma ori¬ 
ginale e fino ad una certa altra linea, 
non incondizionatamente dall’inizio 
alla fine. 

2) Aggiornare i GOTO, i GOSUB, i 
RESTORE in conseguenza alla nuo¬ 
va numerazione. 

3) Qualunque estensione che possa 
essere utile. 

Buona fortuna! ■ 

► 

Listato 3. Il programma permette di 
impiegare con facilità la routine di 
numerazione: da usare con GOTO 
9000. 


237304-256*P 
REM RRMTD 
23730+256 *P 
LET D =23 


1 REM LDeGK 
£ REM RENUMBER 
5 LET rastop=PEEK 
2EK 23731 _ 

18 CLERR ramtop-28: 
p-n 

15 LET f a» top =PEEK 
EEK 23731 

30 LET a=rSKtop-fl: 

4-0 GO SUB 21© 

50 GQ SUB 130 
60 STOP 

13© LPRINT a;", ";n 

135 LPRINT "INOIR";TRB 
TRB 12;"HEX" 

14-0 FOR i «© TO n-1 

LET d=PEEK (a-hi) 

LET n —d 
GO SUB 100© 

LPRINT dfi;TRB 7;n;TRB 


* , 


DEC"; 


150 

155 

160 

170 


$ 


12; b 


ISO 

19© 

20© 

21 © 

22 © 

230 

24-0 

250 

26© 

30© 


NEXT i 
LPRINT 
RETURN 

FOR ì ss© TO n -1 
RERD d 
PQKE 34ì 
NEXT i 
RETURN 
REM dati 

DflTR 4.2,S3,92,17,0,®,1U,35 


TO 


115,35,76,35,70,35,9,126,254., 6* 
,208,229,33,0,0,25,235,225,24-, 23 


4 

1000 LET 
1010 LET 
1028 FOR 
1030 LET 
104© LET 
105© LET 
1068 NEXT 
107© RETURN 


C $ = "0123456789RBCDEF" 
b$ = "'* 

K = 1 TO 0 STEP -1 
b«INT (d.'16*KJ 
b$ = b$ + eiM b+3U 
d ~d -fo *16t R 
K 


908© REM RENUMBER con GOTO 9000 
9010 LET begin=ri*PEEK 237304-256* 
PEEK 23731 

9828 INPUT "PREMERE ENTER SE IL 
CODICE E' GIR' STRTO CRRICRTO 
** ; d $ : IF d $ < > " '* THEN GO SUB 98© 

8 

9030 INPUT "PRINR LINER * ";p""F 
RSSO « “; a 

904© PQKE begin+4,p-INT np^266J* 
256; POKE begin45,INT Cp.^256.» 
9050 POKE b£3in+21,a-INT (a72561 
*256; POKE begin+22,INT (a..'256* 
3060 RRNDOMIZE USR begin 
9070 STOP 

9080 LORD «"m";1;"renumeode"CODE 
begin,28 
9090 RETURN 
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ngrandimento e riduzione 
-di caratteri-— 


Modificate a vostro 
piacere la dimensione 
dei caratteri del vostro 
ZX Spectrum 


di Marcello Spero 

T utti i possessori di uno ZX 
Spectrum conoscono sen¬ 
za altro la cassetta “Hori- 
zon”; si tratta, per quanti non lo 
sapessero, di una cassetta di softwa¬ 
re che fa parte della documentazio¬ 
ne didattica unita ad ogni confezio¬ 
ne dello Spectrum. Il suo contenuto 
comprende un programma interatti¬ 
vo di descrizione dell’hardware, un 
corso, articolato in più programmi, 
sull’uso della tastiera nonché vari 
programmi dimostrativi che tocca¬ 
no gli argomenti più vari. In tutti 
questi programmi vengono usati ca¬ 
ratteri più o meno ingranditi, per 
produrre messaggi di notevole effet¬ 
to. Per la generazione di questi ca¬ 
ratteri è utilizzata una routine in lin¬ 
guaggio macchina che viene caricata 
in coda a ciascun programma. Le 
sue caratteristiche sono troppo inte¬ 
ressanti perché il suo uso resti confi¬ 
nato ai soli programmi della casset¬ 
ta. 

In questo articolo sono indicate le 
operazioni da effettuare per poter 
disporre di questa ruotine in ogni 
situazione, indipendentemente dal 
tipo di programma con cui verrà 
usata o della posizione di memoria 
che occuperà. Infine ne viene pre¬ 
sentata un’applicazione particolare, 
rivolta soprattutto all’utenza “se¬ 
ria" dello Spectrum: l’aumento del¬ 
la capacità del video, fino ad un 
massimo di 63 colonne per 32 righe, 
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• la stringa di caratteri da visualizza¬ 
re; 

• le coordinate del punto di inizio 
della visualizzazione, ossia il primo 
punto in alto a sinistra della griglia 
che rappresenta il primo carattere 
(la figura 1 chiarisce questo concet¬ 
to); 

• il fattore di ingrandimento dei ca¬ 
ratteri nel senso della larghezza; 

• il fattore di ingrandimento dei ca¬ 
ratteri nel senso dell’altezza; 

• il fattore di spostamento fra un 
carattere e il successivo. 

La routine si servirà di questi dati 
per riprodurre i caratteri a partire 


distanza fra i caratteri 
CS pixel 

-M 


AL 

-m 

larghezza di un carattere 
8 x XS pixel 

Figura 2. I vari parametri di ingrandimento adoperati dalla routine. 


larghezza 

di 

un 

carattere 

YS 

pixel 


Punto di inizio 
della visualizzazione 



Figura 1. Composizione di un carat¬ 
tere e punto di inizio per la visualizza¬ 


zione. 


pari a 2016 caratteri, contro i 704 
della configurazione normale (32 
x 22). 

Per prima cosa vediamó in detta¬ 
glio quali sono le operazioni com¬ 
piute dalla routine quando viene 
chiamata. 

Perché questa possa funzionare cor¬ 
rettamente è necessario innanzitutto 
che in un’apposita area di memoria, 
di cui parleremo più avanti e che per 
ora ci limiteremo a chiamare area 
dati, vi siano le seguenti istruzioni: 


dalle coordinate date, ingranditi in 
senso orizzontale e verticale secon¬ 
do i rispettivi fattori, e distanziati 
fra loro del fattore di spostamento 
moltiplicato per il fattore di ingran¬ 
dimento nel senso della larghezza. 
Chiamando: 

XS il fattore di ingrandimento in 
larghezza; 

YS il fattore di ingrandimento in 
altezza; 

CS il fattore di spostamento. 

Ogni carattere sarà largo 8 x XS 





































Ingrandimento 
e riduzione 
_di caratteri 


pixel, alto 8 x YS pixel e disterà dal 
carattere precedente CS x XS pixel; 
questo perché la griglia che forma 
un carattere normale, cioè con in¬ 
grandimento pari a 1, e di 8 x 8 pixel 
(figura 2). 

Di conseguenza: 

• il massimo fattore di ingrandimen¬ 
to possibile per una stringa di N ca¬ 
ratteri sarà 256/(N x CS); 

• il valore normale per CS è 8; valori 
inferiori provocano un accorcia¬ 
mento del lato destro di ogni carat¬ 
tere, mentre valori superiori creano 
degli spazi fra i caratteri. 

Tenete inoltre presente che non è 
prevista la possibilità di andare a 
capo automaticamente, per cui nel 
nostro caso si fossero fatti male i 
conti i caratteri in eccesso andrebbe¬ 
ro a coprire quelli all’inizio della 
stessa riga. 

Per quanto riguarda gli attributi, 
vengono riconosciuti quelli definiti 
globalmente con PAPER, 1NK, 
BRIGHT e FLASH. Quindi carat¬ 
teri di colore, sfondo e luminosità a 
vostra scelta, lampeggianti o no, ma 
sempre in OVER 0 e INVERSE 0 
(questo perché le informazioni rela¬ 
tive ad OVER e INVERSE non sono 
contenute né nella variabile di siste¬ 
ma ATTR P, cui la routine fa riferi¬ 
mento, né nei singoli byte degli attri¬ 
buti, su cui la routine opera). 

Esaminiamo ora le aree di memo¬ 
ria interessate dalla routine, e le mo¬ 
difiche necessarie per cambiarle. 

• Area programma: è quella in cui 
risiede la routine stessa. 

Sarà sempre lunga 277 byte, mentre 
il suo inizio potrà essere variato a 
seconda delle esigenze (si usa dire in 
questi casi che la routine viene rilo¬ 
cata). Occorre tener conto, però, di 
alcuni indirizzamenti diretti che fan¬ 
no riferimento a byte del program¬ 
ma e quindi dovranno essere modifi¬ 
cati di conseguenza. La tabella 1 


elenca le locazioni da modificare, 
con la posizione del byte cui si riferi¬ 
scono, indicata usando come riferi¬ 
mento la posizione del primo byte 
del programma, indicata con X. Se 
per esempio, vogliamo collocare la 
nostra routine a partire dalla loca¬ 
zione di memoria 31860, le locazioni 
X + 86 e X + 87 dovranno contenere 
il numero 31863, cioè X + 3 come 
troviamo indicato in tabella; a que¬ 
sto punto dobbiamo calcolare i va¬ 
lori da porre in ciascuno dei due 
byte, quello meno significativo e 
quello più significativo: il primo sa¬ 
rà 31863 - 256 ★ INT (31863/256) e 
il secondo INT (31863/256), da por¬ 
re rispettivamente nel byte 31946 (X 
+ 86) e 31947 (X + 87). 
Riassumiamo con una formula ge¬ 
nerale, detti: 

X + H la locazione del byte più 
significativo; 

X -f- L la locazione del byte meno 
significativo; 

X + V il valore da assegnare ai due 
byte. 

potremo scrivere: 

PQKE X + H, INT (X + V)/256) 

POKE X + H, INT (X + V)/256) 
POKE X + L, X + V - 256 ★ INT 
(X + V/256) 

esprimendoci nel BASIC dello Spec- 
trum. 

Caricando la routine dalla casset¬ 
ta “Horizon”, questa potrà avere tre 
diversi indirizzi di inizio, a seconda 
del programma cui è associata: 
32000, 32196 e 32256; per sapere a 
quale di questi è stata caricata; basta 
andare a vedere quale è l’argomento 
dell’istruzione CLEAR usata per ri¬ 
servarle lo spazio: l’indirizzo di ini¬ 
zio sarà il byte successivo. Questo 
vale anche se il programma utilizza 
altre routine in linguaggio macchi¬ 
na, poiché quella che ci interessa vie¬ 
ne sempre collocata per prima (per 


trovare l’istruzione CLEAR tenete 
presente che questi programmi sono 
stati salvati in modo da partire con 
una delle ultime linee, quindi intor¬ 
no alla 9000-9500: è in quei paraggi 
che dovrete cercarla). Una volta ac¬ 
certato l’indirizzo di inizio, a voi la 
scelta: lasciare la routine dove si tro¬ 
va, senza quindi doverla modificare, 
o rilocarla applicando le modifiche 
di cui abbiamo parlato. 

• Area dati: è quella che contiene 
tutte le informazioni provenienti 
dall’esterno ed indispensabili al cor¬ 
retto funzionamento della routine; 
viene elaborata ed aggiornata du¬ 
rante l’uso. 

In origine è stata destinata a questo 
scopo l’area “Printer Buffer” ossia 
quella usata dalla stampante ZX, 
che si estende dall’indirizzo 23296 
all’indirizzo 23552. In realtà, non 
essendo possibile operare su più di 
una singola riga, vengono utilizzati 
solo 39 byte, e precisamente quelli 
dal 23296 al 23335. 

Anche un uso cosi limitato rende 
comunque inutilizzabile questa area 
in modo contemporaneo dalla rou¬ 
tine e dalla stampante. Se il vostro 
programma fa uso della ZX Printer, 
potete aggirare l’ostacolo in due 
modi: “ripulendo” l’area dopo cia¬ 
scun uso, con una sequenza del tipo: 
FOR i = 23296 TO 23552 
POKE i,0 
NEXT i 

od utilizzando un’altra zona di me¬ 
moria come area dati. 

Sebbene quest’ultima soluzione 
sia sconsigliabile, per le troppe loca¬ 
zioni da modificare, la tabella 2 dà le 
istruzioni necessarie a questa opera¬ 
zione, riferendo i byte del program¬ 
ma alla posizione X del primo, e i 
byte dell’area dati alla posizione Y 
del primo (per intenderci, quello che 
originariamente è in posizione 
23296). Usando la stessa terminolo- 
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byte 

contenente 

255 

codici 

dei 

caratteri 



della 


Y + 14 

stringa 

valore 

di 


Y + 13 

CS 

valore 

di 


Y + 12 

YS 

valore 

di 


Y + 11 

XS 

valore 

di 



Y 


Y + 10 

valore 

di 



X 

10 



byte 

di 



area 

di 

lavoro 

— Inizio area dati 


Figura 3. Organizzazione dell’area dati della routine. 



già di prima, avremo 
POKE X + H, INT ((Y + V)/256) 
POKE X + L, Y + V - 256 ★ INT 
((Y + V)/256) 

In figura 3 troviamo invece l’or¬ 
ganizzazione dell’area stessa, che 
contiene tutte le variabili di cui ab¬ 
biamo parlato all’inizio più un’area 
di lavoro usata per memorizzare 
prodotti intermedi dell’elaborazio¬ 
ne. Per introdurre i dati necessari nel 
giusto ordine possiamo senz’altro 
ricorrere ad una serie di POKE, ma 
questa serie di istruzioni è certamen¬ 
te più comoda per trasferire nell’a¬ 
rea variabili BASIC: 

LET a = 23306 

POKE a, x: POKE a + 1, y: POKE a 
+ 2, xs: POKE a + 3, ys: POKE a + 
4, cs 

LET a = a + 4: LET w = LEN p$ 
FOR m = 1 TO w: POKE a + m, 
CODE pS (m): NEXT m 
POKE a + w + 1,255 

Nel caso abbiate modificato l’a¬ 
rea dati, al posto di 23306 metterete 
l’indirizzo di inizio dell’area che 
avete scelto. 

• Variabili di sistema. 

Vengono usate le variabili 
CHARS e ATTR P, la prima per 
poter attingere al set dei caratteri, la 
seconda per conoscere quali attribu¬ 
ti sono stati definiti. Può essere inte¬ 
ressante utilizzare un set di caratteri 
alternativo, magari formato dalla 
grafica definibile, ed in questo caso è 
possibile l’uso contemporaneo dei 
due set, uno nelle PRINT normali, 
l’altro utilizzando la routine. Per far 
questo non bisogna modificare il va¬ 
lore di CHARS, come si farebbe 
normalmente per cambiare set: è 
sufficiente modificare, all’interno 
della routine, quello che viene preso 
come l’indirizzo di CHARS. 

In questo modo avremo due 
CHARS, una per il BASIC e l’altra 
solo per la routine. I byte che con¬ 
tengono la posizione di CHARS 
hanno indirizzi X + 18 e X + 19 
(rispettivamente, byte meno signifi¬ 
cativo e byte più significativo); in 
essi dovremo introdurre l’indirizzo 


del primo di due byte in cui avremo 
posto l’indirizzo d’inizio del set di¬ 
minuito di 256 (per maggiori chiari¬ 
menti leggete quanto viene detto a 
proposito di CHARS nel manuale, 
al capitolo dedicato alle variabili di 
sistema). 

Infine due parole sul metodo da 
usare per venire praticamente in 
possesso della routine. I passi da 
compiere sono: 

1) caricare uno qualsiasi dei pro¬ 
grammi contenuti nella cassetta 
“Horizon”; 

2) conoscere l’indirizzo di inizio del¬ 
la routine; 

a questo punto, se non avete biso¬ 
gno di rilocarla, basta dare NEW 
per eliminare il programma e il gio¬ 
co è fatto. Volendo invece cambiare 
la posizione, occorre operare tutte le 


modifiche viste sopra, e quindi spo¬ 
starla con istruzioni del tipo: 

LET a = vecchio indirizzo di inizio 

LET b = nuovo indirizzo di inizio 

FOR i = 1 TO 277 

POKE b - 1 + i, PEEK (a - 1 + i) 

NEXT i 

e quindi 

3) dare CLEAR b — 1; 

4) dare NEW. 

Per utilizzarla basta ora inserire 
nel programma in posizione oppor¬ 
tuna, che normalmente sarà subito 
dopo il gruppo di istruzioni a carica¬ 
re l’area dati, una istruzione: 
RANDOMIZE USR 
indirizzo di inizio 
o, meglio: 

LET w = USR indirizzo di inizio 
dove w è una variabile che non ci 
serve; il vantaggio di questa forma 
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5 LET start-inizio routini: 
LET char.inizio nuovo set 
10 FOR i«char tp charf£ 6 #©-l. 

RERD a: PCKhi i .a: NEXT i 
20 POKE start r:S,£»72S-256*INT 
(2372©,2S6> 

30 POKE sta--; Mv, INT (2^/28/ 

£56) 

4.0 POKE 23726 , Char -85*6-256* 
INT ((char-65*6)/256) 

50 POKE 23729,INT I(Char-65*6 
) /■ 2 5 © ) -1 

60 LET xs«l: LET ys«l: LET CS 
b4 

70 LET x «0 : LET y =0 
80 PftU5E 0 
90 LET f 5 =INKEY5 
10O CO 5UB 900 
110 LET x»x-*4 

120 IF x«2 = £ THEN LET LET 

y =y +3 

130 GO TG Pw 
900 LCT a «23306 

910 POKE a , x . POKE a*l,y. P>OKE 
l+2,xs POKE **3,ys; POKE 
« + 4 , C fc 

S2S bSI LET «k=LEN P* 

930 FOR »-l TO v : POKE e-*», 

CODE p f < » ) : NE.XT m 
940 POKE a^w+1,255. LET w«U3P 
start 

950 RETURN 


1000 DRTR 
60.0 

10l0 DPT R 
224.0 
1020 DRTR 
4.0 

1030 DRTR 
192,0 
1040 DRTR 
224,0 
1050 DRTR 
126,0 
1060 DRTR 
5.0 

1070 DRTR 
160,0 
1080 DRTR 
0 

1090 DRTR 

1100 DRTR 
160,0 
1110 DRTR 
224,0 
1120 DRTR 
160,0 
1130 DRTR 
160,0 
1140 DRTR 
224,0 
1150 DRTR 
128,0 
1160 DRTR 
224,64 
1170 DRTR 
160,0 
1180 DRTR 
0 

1190 DRTR 

1200 DRTR 
£24,0 
1210 DRTR 
64,0 

1220 DRTR 
160,0 
1230 DRTR 
60,0 

1240 DRTR 
0 

1250 DRTR 
- , 0 


0,64,160,160,224,160,1 
0,192,160,192,160,160, 
0,64,160,126,126,160,6 
0,192,160,160,160,160, 
0,224,128,192,12©,126, 
0,224,126,192,128,12©, 
0,64,160,126,126,160,9 
0,160,160,224,160,160, 
0,224,64,64,64,64,224, 
0,32,32,32,32,160,64,0 
0.160,160,192,160,160, 
0,126,125.12©,12©,12©, 
0,160,224,160,160,160, 
0,224,160,160,160,160, 
0,224,160,160,160,160, 
0,224,160,160.224,128, 
0,224,160,160,160,160, 
0,224,160,160,192,160, 
0,96,128,64,32,160,64, 
O,224,64,64,64,64,64,0 
0,160,160,160,160,160, 
0,160,160,160,160,160, 
0,160,160,160,160,224, 
0,160,160,64,160,160,1 
0,160,160,64,64,64,64. 
0,224,32,64,126,128,22 


Listato 1. Programma per la creazio¬ 
ne di un video 63 x 24. 

rispetto alla precedente è che que- 
st’ultima non condiziona la genera¬ 
zione di numeri casuali, consenten¬ 
do cosi l’uso di RND. 

Eccoci ora ad un uso molto parti¬ 
colare di questa routine: l’aumento 
della capacità video. 

I programmi che richiedono all’uti- 
lizzatore un confronto visivo dei da¬ 
ti, siano essi numeri (in programmi 
tipo VU-...) o testo (in programmi di 
Word Processing), perdono gran 
parte della loro efficacia d’uso 
quando sono costretti in un piccolo 
schermo. 


xs 

YS 

CS 

1 

2 

8 

2 

2 

7 

2 

2 

8 

2 

3 

8 

3 

3 

8 

4 

4 

8 

6 

6 
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Figura 4. Esempi di vari ingrandimenti operati sui medesimi caratteri. 

ISA mim FARD' ALCUNA ESPEEIEflZft, MARTI CtTIB PIU'' OLIRE PRO 
CEDA, PERCHE' AIA IflTERZIOnE E' ALLEGARE PRIHA fESPERISSEA, E 
POI COLLA RACIBflt OUttSSTRARE, PERCHE - TALE ESPERIESZS E' 
COSTRETTA Iff TAL Hflfifl SS OPERARE. 

£ OtlESTfc E' LA MERA REGOLA, ROBE LI SPECULATORI CELLI EFFETTI 
OATURALI HAOflO A PROCEDERE, E ACCORA CHE LA flATURA COHIOCI DAL 
LA RACIflflE E TERHini (IELLA SPERIEOZA, A HAI 6IS0C0A SEGUITARE 
IO COOTRARIO .CIOÈ- COHIOCIAnDO, COOE DI SOPRA DISSI DALLA SPE 
RIEIIZA, E COR QUELLA lOUESTIÙiEE LA PACIOSE 

LEBBA8È0 DA «ISCI DAL CODICE ATLMTlÈtL 

Figura 5. Hard copy di uno schermo 63 x 24 con un brano di testo. 


Quello che ci proponiamo di otte¬ 
nere è una modifica dell’immagine 
(l’eco) dei caratteri sullo schermo, 
per renderli più piccoli, senza modi¬ 
ficare i loro codici, in modo da man¬ 
tenere inalterata la possibilità di uti¬ 
lizzare stampanti non ZX od altre 
periferiche cui vengono appunto in¬ 
viati i codici dei caratteri, che per¬ 
tanto devono essere rigorosamente 
rispóndenti allo standard ASCII. 
Senza questa condizione verrebbe 


meno lo scopo principale di pro¬ 
grammi del tipo di quelli citati, che è 
appunto una stampa di una certa 
qualità. 

L’aumento della densità dei caratte¬ 
ri sul video si articola in vari passag¬ 
gi: 

• creazione in memoria di un set in 
cui ciascun carattere occupi soltanto 
i primi n bit in laghezza e m bit verso 
il basso della griglia 8x8 disponibi¬ 
le; 
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_di caratteri 


• uso della routine di cui sopra con 
un incremento di X pari ad n, e co¬ 
munque inferiore ad 8, ed un incre¬ 
mento di Y ad ogni riga pari ad m. 

Come vedete in questo caso non 
utilizziamo le capacità di ingrandi¬ 
mento della routine, ma solo la pos¬ 
sibilità di visualizzare i caratteri sen¬ 
za essere legati alle righe e colonne 
previste. Utilizzando per le dimen¬ 
sioni dei caratteri dei sottomultipli 
di 256 e 192 si evitano sprechi di 
spazio. L’ultimo carattere di ciascu¬ 
na riga non va invece utilizzato, per¬ 
ché la sua “appendice” andrebbe a 
cancellare il primo carattere della 
riga stessa (in tutti i caratteri non 
sono al termine di riga questa ap¬ 
pendice viene coperta dal carattere 
successivo, per effetto del ridotto in¬ 
cremento di X). 

Il programma presentato nel li¬ 
stato 1 dimostra la possibilità di ot¬ 
tenere uno schermo 63 x 24; collo¬ 
cando in linea 5 l’indirizzo di inizio 
della routine e del nuovo set, è pron¬ 
to a funzionare. Come variabile 
CHARS fittizia utilizza gli indirizzi 
23728 e 23729, che pur essendo fra le 
variabili di sistema non vengono uti¬ 
lizzati, e per questo modifica di con¬ 
seguenza gli indirizzi start + 18 e 
start + 19 della routine. In questa 
CHRS viene introdotto l’indirizzo 
di inizio dell’area dati, cioè la varia¬ 
bile char, diminuito di 256. Le linee 
1000-1250 contengono i dati per co¬ 
struire in memoria, all’indirizzo da 
voi specificato, il nuovo set; trattan¬ 
dosi di un programma esemplificati¬ 
vo questo è limitato alle lettere, dal¬ 
la A alla Z. Notate come l’indirizzo 
contenuto nella nostra variabile 
CHARS sia spostato indietro, ri¬ 
spetto al reale inizio del set, di 65 
caratteri: infatti la A, primo caratte¬ 
re da noi collocato in memoria, è il 
97 che meno 32 (numero di codici 
del primo carattere compreso nel set 
normale) dà appunto 65. Certo l’a¬ 
spetto grafico dei nuovi caratteri 
non è meraviglioso, ma occorre te¬ 
ner presente che tutto quello che ci 
serve è che siano leggibili: l’aspetto 
elegante lo avremo eventualmente 
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Indirizzi di programma da modificare 

Valore da introdurre 

byte meno significativo 

byte più significativo 

X + 86 

X + 87 

X + 3 

X + 106 

X + 107 

X + 32 

X + 127 

X 4- 128 

X + 164 

X + 154 

X 4- 155 

X + 48 

X + 251 

X 4- 252 

X 4- 156 


Gli indirizzi sono riferiti all'indirizzo di inizio deI programma. 


Tabella 1. Elenco delle locazioni da modificare per rilocare la routine. 


Indirizzi di programma da modificare 

Valore da introdurre 

byte meno significativo 

byte più significativo 

X + 1 

X 4- 2 

Y 4- 15 

X + 6 

X 4- 7 

Y 4- 0 

X 4- 24 

X + 25 

Y 4- 4 

X 4- 27 

X + 28 

Y 4- 11 

X + 30 

X + 31 

Y 4- 9 

X + 33 

X + 34 

Y 4- 10 

X + 36 

X + 37 

Y 4- 8 

X 4- 41 

X + 42 

Y 4- 5 

X + 46 

X + 47 

Y 4- 2 

X + 50 

X + 51 

Y 4- 6 

X + 53 

X -f 54 

Y + 5 

X + 59 

X + 60 

Y 4- 4 

X + 65 

X + 66 

Y 4- 14 

X + 69 

X + 70 

Y 4- 12 

X + 73 

X + 74 

Y 4- 10 

X + 80 

X + 81 

Y 4- 10 

X + 83 

X + 84 

Y 4- 0 

X + 89 

X + 90 

Y 4- 4 

X + 92 

X 4- 93 

Y 4- 13 

X + 96 

X + 97 

Y 4- 9 

X + 100 

X + 101 

Y 4- 9 

X 4- 103 

X + 104 

Y 4- 2 

X + 109 

X + 110 

Y 4- 5 

X 4- 112 

X + 113 

Y 4- 12 

X + 1 16 

X + 117 

Y 4- 9 

X + 1 19 

X + 120 

Y 4- 7 

X + 122 

X + 123 

Y 4- 13 

X 4- 131 

X 4- 132 

Y 4- 7 

X + 136 

X + 137 

Y 4- 7 

X + 142 

X 4- 143 

Y 4- 8 

X + 146 

X 4- 147 

Y 4- 8 

X + 152 

X 4- 153 

Y 4- 6 

X + 177 

X 4- 178 

Y 4- 8 

X + 183 

X 4- 184 

Y 4- 7 

X + 217 

X 4- 218 

Y 4- 7 

X + 240 

X 4- 241 

Y 4- 8 

X + 264 

X 4- 265 

Y 4- 6 

Gli indirizzi sono riferiti all'indirizzo di inizin de! / 

nogramma e dell'area dati. 


Tabella 2. Elenco delle locazioni da modificare per utilizzare una diversa area 
dati. 


nella stampa, e dipenderà dal tipo di 
stampante utilizzata. Il medesimo 
programma, con poche modifiche, 
può essere usato per produrre un 
video 63 x 32, dimezzando l’altezza 
dei caratteri; a questo punto, co¬ 


munque, siamo veramente al limite 
della visibilità, tenendo anche conto 
del fatto che non tutti i televisori 
danno un’immagine ugualmente ni¬ 
tida (quanti sono i fortunati che pos¬ 
siedono un monitor?). ■ 
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in edicola la prima 

Guida all’acquisto di libri 
Italiani ed esteri ^ principalmente di Informatica, 
di elettrotecnica ed elettronica, nonché del 
software applicativo. 

Oltre 350 testi italiani, 1000 stranieri in lingua 
originale e 900 package applicativi costituiscono 
l'attuale assortimento. 

La guida è il tuo consulente sicuro per orientarsi nel 
labirinto dell'editoria tecnica, lo strumento ed il 
servizio essenziale per chi ha compreso l'importanza 
della tecnologia nel mondo odierno. 

Libri di base e didattici per imparare e capire; 
applicativi per realizzare e coltivare il proprio hobby; 
pratici per risolvere i problemi dell'attività 
quotidiana; di elevata specializzazione per 
migliorare il proprio background professionale o 
culturale. 

Software per Apple, IBM, Texas, Sinclair, TRS, VIC per 
risolvere i problemi più complessi o, semplicemente, 
per giocare. Un'ampia gamma 

di "applicativi" che 
comprende tra gli altri 
i più efficienti Data 
Base, i più completi 
programmi per 
l'elaborazione 
dei testi, i più 
sofisticati 
package 



grafici oltre naturalmente, ai più divertenti 
programmi ricreativi. 

E inoltre, la nuova linea Software TechnoClub, 
sviluppata in collaborazione con programmatori 
professionisti, con una gamma di programmi 
selezionati e convenienti per II tuo home o 
personal computer. 

Acquista la guida in edicola o ordinala 
direttamente, compilando e spedendo il coupon 
sottoriportato, unitamente a L. 8.000. 

Potrai così prendere visione anche delle modalità 
per diventare Socio del TechnoClub e godere dei 
numerosi vantaggi che ne derivano tra i quali 
La ricezione gralulta di minimo 8 ulteriori numeri di 
questa guida. Sarai così costantemente aggiornato 
su tutte le novità editoriali più qualificate e sui 
package più interessanti ed innovativi per il tuo •%" 
computer. 

Nessun impegno di acquisto durante II periodo di 
adesione. Scelta libera e senza vincoli di minimi 
quantitativi di acquisto durante il periodo di 
adesione, potendo così ordinare ciò che si vuole, 
quando si vuole. 

Convenienza certa. I testi italiani sono scontati del 
10% circa rispetto al prezzo di copertina. 
Particolarmente vantaggiosi risultano i prezzi dei libri 
esteri e del software. 

La .tessera TechnoClub. Il documento personale 
che dà diritto a sconti speciali su diversi articoli 
acquistati presso negozi convenzionati, 

Oltre 5.000 Soci hanno già aderito al TechnoClub. 
Attendiamo anche te. 


Ordino il primo numero della 

Guida all’acquisto di libri e software e 

□ allego L. 8.000 (in contanti o francobolli) 

□ allego assegno di L. 8.000 

Nome _ 

Cognome _ 
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SHARP 


La mappa della memoria del PC-1251 

di Mauro Lenzi 


Nel numero precedente di questa rubrica abbiamo 
scoperto tre istruzioni BASIC presenti nel computer 
Sharp PC-1251 e non dichiarate sul manuale: PEEK, 
POKE e CALL. 

Con queste istruzioni siamo già in grado di sonda¬ 
re la memoria e trovare cose molto interessanti e, 
come vedremo, piuttosto “strane”. 

Facciamo girare il seguente programma: 

10 L = 0 

20 POKE L 92 

30 IF PEEK L = 92 THEN BEEP 3 : STOP 

40 L = L + 1: GOTO 20 

Finalmente, dopo una lunga attesa, sentiamo i tre 
beep ed il programma si arresta. Il valore di L in cui il 
computer si è arrestato è 32768, corrispondente a 2 15 : 
abbiamo così trovato il numero corrispondente alla 
prima locazione della RAM. 

11 metodo utilizzato è semplicissimo: si basa sul¬ 
l’ovvio principio che le locazioni della memoria 
ROM non possono essere cambiate nemmeno con 
l’istruzione POKE ed il loro contenuto rimane quindi 
invariato anche dopo avere eseguito questa istruzione. 

A questo punto sarebbe logico supporre che tutta 
la memoria da 0 a 32767 faccia parte della ROM, 
tuttavia, poiché il manuale dichiara che vi sono solo 
24 Kbyte di ROM, occorre indagare più a fondo. 

Eseguiamo dunque il seguente programma: 

10 L = 0 

20 PAUSE PEEK L 

30 L = L + 256 : GOTO 20 

Il display si limita a mostrarci una lunga successio¬ 
ne di numeri da 0 a 63 e poi visualizza dei numeri 
“casuali”. Con qualche altra breve istruzione è facile 
trovare, con esattezza, che tutta la memoria compre¬ 
sa fra 0 e 16383, pari a 2 14 , contiene una serie di 
numeri che vengono incrementati di uno ogni 256 
locazioni. 

Proseguendo il sondaggio, si scopre facilmente che 
tutti gli indirizzi da 32768 a 50900 possono essere 
agevolmente cambiati. Ci troveremmo dunque a dis¬ 
posizione più di 18 Kbyte di RAM. Sono spiacente di 
deludere le vostre speranze, ma non è così. Infatti, 
facciamo un’analisi più approfondita, troviamo il 
trucco; esaminiamo le seguenti locazioni: 
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PEEK 32768 
PEEK 36864 
PEEK 40960 
PEEK 45056 

Compare sempre lo stesso numero. Digitiamo ora: 
POKE 45056,92 

Se andiamo ad analizzare nuovamente le locazioni 
precedenti, troveremo che anche in esse vi è il numero 
92! La spiegazione è semplice: le aree di memoria da 
32768 a 36863, da 36864 a 40959, da 40960 a 45055 e 
da 45056 a 49151 sono coincidenti. La nostra memo¬ 
ria RAM dunque si riduce a 5,8 Kbyte, cioè da 45056 
a 50900, che sono sempre un po’ di più dei 4 Kbyte 
dichiarati. 

In particolare si può trovare che le locazioni da 
45056 a 45103 contengono la memoria del RSV mo¬ 
de, mentre quelle da 45104 a 48590 sono riservate a 
quello che in “gergo” viene chiamato Text Buffer, 
che altro non è se non il nostro programma codifica¬ 
to. 

La Symbol Table, cioè le locazioni in cui vengono 
memorizzati i valori delle variabili, parte da 50846 e 
da lì scende progressivamente: il valore di A o di A$ 
va da 50840 a 50846, il valore di Z viene memorizzato 
da 50640 a 50646; A(255) inizia alla locazione 48808. 

In figura 1 è stata raffigurata la mappa della me¬ 
moria del nostro Sharp PC-1251. 

Della parte di memoria che va da 50847 a 65535, 
almeno per il momento non ce ne occuperemo, per¬ 
ché mescolando locazioni RAM a locazione ROM è 
di difficilissima comprensione, senza avere a disposi¬ 
zione il manuale del firmware del computer. Comun¬ 
que con le novità che abbiamo appreso, la prossima 
volta faremo cose interessanti come trovare ed usare 
con disinvoltura caratteri “strani” ad esempio lettere 
greche, “cinesi e misteriosi simboli matematici. Dul- 
cis in fundo, scopriremo altre 6 istruzioni sconosciu¬ 
te. ■ 


LOCAZIONI 

DESCRIZIONE 

da 

a 


0 

16383 

Numeri progressivi da 0 a 63. 

16384 

32767 

ROM. 

32768 

36863 \ 


36864 

40959 ( 

Quattro blocchi di memoria RAM 

40960 

45055 ( 

coincidenti (numero di default = 4096). 

45056 

491517 


45056 

50900 

RAM utilizzabile. 

45056 

45103 

Memoria de1 Reserve Mode. 

45104 

50846 

Text Buffer + Symbol Table. 

50847 

65535 

Utilizzate dal Sistema Operativo, 
di difficile interpretazione. 


Figura 1. Schema esemplificativo della distribuzione 
della memoria nel computer Sharp PC-1251. 



























Come incolonnare correttamente 
i numeri senza ricorrere 
a una subroutine 

di Marcello Spero 

Tutti i linguaggi ad alto livello prevedono la possi¬ 
bilità di definire il formato di stampa, cioè il modo in 
cui verranno disposti, sullo schermo o sulla carta, i 
dati in uscita. 

Per quanto riguarda i dati numerici, in particolare, 
esistono parametri che ne definiscono la lunghezza 
massima, il numero di decimali e se sono di tipo reale. 
In base a queste specifiche la macchina provvederà 
ad un corretto incolonnamento secondo le regole 
dell’algebra e cioè con gli interi allineati a destra e i 
reali allineati sul punto decimale. 
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5 

5 

100 

100 

3375 

3375 

160000 

1 60000 

5 

5. 

100 

100. 

3375 

3375. 

160000 

168000. 

4 

4.00 

64 

64.00 

1723 

1728.00 

65536 

65536.00 

1.2 

1.200 

4,16 

4.160 

27.216 

27.216 

256.4096 

256.410 

0.999487 

0.9995 

0.999687 

0 - 9997 

.0142S5714 

.01429 

.000S1632b53 

.00082 

.000078717201 

m 00000 

.000010662224 

.00001 


Figura 1. Alcuni esempi di stampa normale e facendo 


uso delle funzioni. 



Figura 2. Struttura di un campo intero. 


Z 

ampiezza del campo 

Figura 3. Struttura di un campo decimale. 

I vantaggi di questo procedimento non si limitano 
ad una migliore leggibilità di lunghe colonne di nu¬ 
meri. Nel caso di dati reali, infatti, averne fissato il 
numero di decimali comporta un’aggiunta di zeri 
qualora questi siano meno del previsto e l’arrotonda¬ 
mento dell’ultima cifra nel caso opposto, rendendo 
così evidente il grado di precisione che abbiamo volu¬ 
to attribuire ai dati in questione. 

Per quanto riguarda lo ZX Spectrum, troviamo nel 
suo BASIC le istruzioni per il posizionamento della 
stampa (TAB, AT) ma non quelle per la definizione 
del formato dei dati numerici (normalmente attuato 
in BASIC con una istruzione PRINT USING). 

Per creare un’azione di questo tipo si è fatto uso 
della versatile istruzione DEF FN, definendo in tal 
modo alcune funzioni in grado di controllare l’out¬ 
put numerico. Rispetto all’uso di una subroutine vera 
e propria questo sistema ha due vantaggi: la semplici¬ 
tà d’uso e il non essere legato a determinate variabili 
per il passaggio dei parametri; d’altra parte uno svan¬ 
taggio può essere l’uso di condizioni implicite, le 
uniche utilizzabili all’interno delle DEF FN, che han¬ 
no reso più macchinoso il procedimento. 

Esaminiamo il primo caso, e cioè la creazione di un 
“campo intero” ossia uno spazio, ampio un certo 
numero di caratteri, all’interno del quale verrà collo¬ 
cato un dato intero, allineato a destra. La funzione 
interessata è in questo caso FN i (x,y,z,), dove x sarà il 
dato, y il valore di TAB di inizio campo e z l’ampiezza 
del campo stesso. All’istruzione; 

PRINT TAB y;x 

usata normalmente andrà sostituita una: 

PRINT TAB FN i(x,y,z);x 

in cui x, y e z potranno essere costanti o variabili 
qualsiasi. 

A seconda dell’ampiezza di campo prescelta po¬ 
tranno presentarsi tre casi: 

1) le dimensioni del campo sono superiori a quelle del 
dato, che verrà quindi allineato a destra. 

2) il dato ha la stessa lunghezza del campo 

3) le dimensioni del campo sono inferiori a quelle del 
dato; in questo caso la condizione implicita posta alla 
fine della funzione addiziona al valore di TAB un 
numero (-100) tale da renderlo sicuramente negativo 
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Come incolonnare correttamente 
i numeri senza ricorrere 
_a una subroutine 


e provocare così la condizione di errore “B Integer 
out of range”. Questo meccanismo di sicurezza è utile 
per segnalare la presenza di dati anomali, ma può 
essere facilmente eliminato togliendo dalla funzione 
tutta l’ultima parentesi, appunto il controllo di lun¬ 
ghezza. In questo modo dati più lunghi del campo 
prescelto verranno rappresentati ugualmente, alline¬ 
ati con gli altri ma sporgenti sulla sinistra oltre il 
limite che avevamo fissato. 

Passiamo ora alla formattazione di dati reali. Il 
procedimento è più complesso, trattandosi non solo 
di allineare il dato all’interno di un campo, ma di 
rendere costante il numero dei suoi decimali median¬ 
te troncamento e arrotondamento o aggiunta di zeri. 
Queste operazioni vengono svolte da tre funzioni 
diverse: FN r(x,y,z,w), FN t$(x,w) e FN a$(x,w) la 
prima delle quali provvede all’allineamento mentre le 
altre due all’arrotondamento o aggiunta di zeri. Per 
poterle utilizzare correttamente, all’istruzione: 

PRINT TAB y;x 


1 


DEF FN i (X y , z) 
STR$ X — ( 190 RND 
z 3 


=y +Z-LEN 
LEN STR$ 


X > 


2 DEF FN r (x,y.,z,w> =y +z -w - 
(RBS x> = ,l-10t C-w-1) ) -LEN 
STR $ INT x+t-100 RND LEN 
STR $ INT X +us +1 > z 3 


3 DEF FN 3 $ (X ,w) = STR$ (X+5* 
10 +(-W-1)#(—1 OR x>=033 


4- DEF FN t $ ( X .. W 3 =FN 3 $ ( X . W 3 
( TO LEN STR $ INT X+W+tRBS 
X > —. 1-10+ i-w-13 3 3 


5 REM *********************** 
condensazione di FN a$ 
e FN t$ in un'unica 
funzione 

*********************** 


6 DEF FN t$(X..u>3=tSTR$ tX+5* 
10+ ( -hi-13 * ( -1 OR X>=<3 3 3 ) 
t TO LEN STR $ INT X+U)+(RBS 
X>=.l-10t (-W-13 3 J 


Listato 1. Le funzioni di formattazione. 


andrà sostituita una: 

PRINT TAB FN r(x,y,z,w); FN t$(x,w) 

dove x è il dato, y il valore di TAB di inizio campo, z 
l’ampiezza del campo e w il numero di decimali che si 
desidera compaiano nella stampa. 

Osserviamo ora più da vicino il funzionamento di 
ciascuna funzione. FN r si occupa, come abbiamo 
detto, deH’allineamento del dato all’interno del cam¬ 
po reale. Questo tipo di campo si può considerare 
diviso in due settori, uno per la parte intera e l’altro 
per i decimali. All’interno del primo settore l’allinea- 
mento avviene come per il campo intero, ma occorre 
tenere conto di una limitazione insita nel BASIC 
dello Spectrum. I numeri inferiori a 0.1, infatti, sono 
rappresentati senza lo zero iniziale, e quindi la loro 
parte intera non esiste; è impossibile, oltretutto, rag¬ 
giunta di un carattere “0” alla FN t$, pur essendo 
questa una funzione stringa, per motivi non chiari ma 
legati alla meccanica della DEF FN. FN r, comun¬ 
que, tiene conto di questo ed incolonna correttamen¬ 
te sia i numeri senz’altro minori di 0.1 che quelli, 
come 0.999999... che pur essendone in origine minori 
dopo l’arrotondamento operato, come vedremo in 
seguito, da FN t$, ne risulteranno maggiori, per mez¬ 
zo del fattore di compensazione rappresentato da 
10t(-w-l). Anche qui abbiamo una condizione di 
errore nel caso la parte intera del dato superi l’am¬ 
piezza del primo settore del campo, ed anche qui è 
possibile la sua eliminazione togliendo dalla FN r 
l’ultima parentesi. 

Il secondo settore, invece, deve essere riempito 


completamente, volendo mantenere fisso il numero 
dei decimali. Di questo si occupa FN t$ che, per la 
fase di arrotondamento, si avvale di FN a$. 

L’arrotondamento consiste nell’addizionare 5 ★ 
10 t (— w — 1), che equivale ad aggiungere 5 al primo 
decimale eccedente, se esiste, o, in caso contrario, ad 
aggiungere degli zeri al posto dei decimali mancanti. 
Del troncamento dei decimali eccedenti, che dopo la 
somma operata da FN a$ saranno sempre almeno 
uno, si occupa FN t$ operando uno “slicing”, cioè 
una partizione, sul prodotto di FN a$. Le operazioni 
svolte da FN a$ e da FN t$ possono, volendo, essere 
riunite in una sola funzione, come vedete in figura 1, 
ottenendo un insieme peraltro piuttosto ingombran¬ 
te ma funzionante correttamente. 

Per concludere, due parole sull’uso pratico. Una 
volta inserite nel programma le istruzioni DEF FN 
basta inserire nelle PRINT, modificate secondo i cri¬ 
teri visti sopra, i parametri corretti. 

Ricordo solo che il valore di y deve essere quello 
della posizione di inizio, cioè dell’estremità sinistra, 
del campo, e z è sempre, anche nel caso di campi reali, 
l’ampiezza totale del campo; ne consegue che la diffe¬ 
renza fra z e w dovrà essere sufficiente a contenere la 
parte intera dei dati da stampare, pena il continuo 
bloccaggio del programma. Molte sono le variazioni 
possibili: usando FN r e FN t$ con dati interi si 
ottengono tanti zeri quanti sono i decimali richiesti; 
ponendo w a zero si avranno sempre numeri interi, 
ma con il punto decimale; usando la sola FN r si 
ottiene il solo incolonnamento; con la sola FN t$, 
infine, si avrà solo il troncamento o arrotondamento 
dei dati. ■ 
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TI99/4A _ 

Il movimento 

in TI Extended BASIC 

di Sergio Borsani 


Ricordo con simpatia le parole dell’amico di Mila¬ 
no: “mi tuffo nell’Assembler e non riemergerò che tra 
qualche mese”. Condivido il disappunto di quanti 
vorrebbero eseguire in BASIC programfni dove la 
rapidità dell’azione e la molteplicità degli oggetti in 
movimento giocano un ruolo determinante ma credo 
che non si debbano sottovalutare le istruzioni grafi¬ 
che relative agli sprite fornite dal Modulo TI Exten¬ 
ded BASIC. Semmai io sento una limitazione nel¬ 
l’impossibilità di poter usare, dal BASIC, il video in 
Bit-Map e nella mancanza di un comando CALL 
LINE per tracciare linee. 

Evidentemente queste diverse esigenze sono dovu¬ 
te al fatto che generalmente scrivo programmi didat¬ 
tici e per me la velocità non è essenziale; ma anche chi 
preferisce dedicarsi ai video game potrà ottenere con 
l’Extended BASIC risultati soddisfacenti senza dover 
ricorrere, come con altri computer, alle istruzioni 
PEEK e POKE per accedere direttamente alle loca¬ 
zioni di memoria o, addirittura, “tuffarsi” nell’As¬ 
sembler. 

Le subroutine alle quali mi riferisco sono SPRITE, 
MOTION, LOCATE, POSITION, DISTANCE, 
COINC e DELSPRITE. Le prerogative più evidenti 
sono il poter determinare la posizione di un oggetto 
in pixel, senza essere vincolati alle 24 righe e 32 
colonne, ed il movimento automatico degli sprite. 

Per creare il movimento in Extended BASIC si può 
procedere essenzialmente in due modi: variare suc¬ 
cessivamente la posizione con l’istruzione CALL 
LOCATE o variare la velocità con il comando CALL 
MOTION. Nel primo caso il moto risulterà poco 
uniforme, cioè a scatti, soprattutto a velocità elevate; 
in compenso risulterà molto preciso in quanto si ha 
continuamente sotto controllo la posizione dello 
sprite. Nel secondo caso si otterrà un movimento più 
uniforme ma facilmente si perderà il controllo dello 
sprite. La ragione di ciò è che, dal momento in cui si 
determinano le nuove componenti della velocità fino 
a qundo viene data l’istruzione CALL MOTION, lo 
sprite continua a spostarsi automaticamente lungo la 
vecchia direzione; pertanto la variazione di velocità 
giunge sempre con un lieve ritardo rispetto al punto 
previsto. 

Per un confronto tra i due metodi digitate i brevi 
listati 1 e 2. In entrambi si vuole ottenere una traietto¬ 
ria circolare ed apparentemente le differenze sono 


trascurabili, ma provate, nel secondo, a modificare la 
linea 240 con V = - 30; non solo è aumentata la 
velocità ma la traiettoria si è trasformata da circolare 
a elittica. Per V = - 40 lo sprite, addirittura, sfugge al 
controllo ed esce dal video. 

Per ottenere una traiettoria circolare avremmo do¬ 
vuto cambiare la velocità ad ogni istante; noi pur¬ 
troppo siamo costretti ad operare ad intervalli discre¬ 
ti. Il listato 3 è un esempio, se vogliamo banale, di 
come il movimento possa essere controllato con l’uso 
degli joystick. 

Per un uso corretto non deve essere premuto il 
tasto ALPHA LOCK. Il programma simula il gioco 
del rincorrersi: un omino deve raggiungere l’avversa- 
rio che cerca di sottrarsi e quando ciò avviene compa¬ 
re la scritta “PRESO!”. L’istruzione CALL COINC, 
alla linea 210, controlla se c’è la coincidenza tra i due 
sprite. In caso affermativo la variabile CO assume il 
valore — 1, in caso contrario la stessa variabile assu¬ 
me il valore 0. 

La posizione dello sprite si identifica con quella del 
pixel in alto a sinistra della piccola superficie quadra¬ 
ta che contiene lo sprite stesso. Se nell’istruzione 
CALL COINC si dà un valore non nullo alla tolle¬ 
ranza, si può ottenere la coincidenza anche quando 
gli sprite sono solo parzialmente sovrapposti, senza 
che coincidano i punti caratteristici che individuano 
le loro posizioni. Nel nostro esempio la tolleranza è 
stata posta uguale a 20 ed è una buona norma che 
essa sia tanto maggiore quanto più grandi sono gli 
sprite e quanto maggiore è la loro velocità. 

Un automobilista che debba sterzare improvvisa¬ 
mente davanti ad un ostacolo potrà farlo con succes¬ 
so solo se i tempi di reazione lo consentono. Quando 
il programma prevede il controllo di un oggetto in 
movimento bisogna tenere conto dei tempi di reazio¬ 
ne dell’interprete BASIC e con la pratica e l’esperien¬ 
za si otterranno le migliori soluzioni. Il listato 4 è un 
esempio di come il BASIC debba prendere d’anticipo 
le istruzione che riguardano il movimento e come 
questo possa essere controllato con opportune pause 
tra una istruzione e l’altra. 

Una pallina aggira un ostacolo che si trova lungo la 
sua traiettoria e l’ostacolo è posto in corrispondenza 
della colonna 18. Teoricamente la deviazione della 
pallina dovrebbe avvenire quando questa raggiunge 
la colonna 128 (in pixel), in realtà, alla linea 210 del 
programma, si controlla se è stata superata la colon¬ 
na 120; quegli 8 pixel di scarto permettono al BASIC 
di eseguire l’istruzione successiva per tempo, senza 
che la pallina passi sull’ostacolo. 

Le istruzioni CALL MOTION alle linee 220-250 
sono state separate da cicli FOR-NEXT il cui solo 
scopo è quello di creare una pausa durante la quale il 
movimento prosegue automaticamente. Se la veloci- 
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tà è uguale a 20, per T che varia da 1 a 100, lo sprite 
percorre una distanza pari a circa 26 pixel mentre, per 
T che varia da 1 a 200, lo sprite percorre una distanza 
di 50 pixel. Come si vede la proporzionalità non è 
rigorosa. 

Oltre a questi brevi esempi voglio presentare un 
gioco completo che, come al solito, riunisce in modo 
sintetico tutte le considerazioni precedenti (listato 5). 

Partecipano due concorrenti ognuno dei quali 
“aiuta” una gallina ad attraversare un’autostrada. Il 
concorrente di sinistra ha a disposizione i tasti (1) e 
(2) rispettivamente per far avanzare la gallina e per 
fermarla; analogamente il giocatore di destra dispone 
dei tasti (9) e (0). Si guadagna un punto per ogni 
gallina che riesce ad attraversare l’autostrada. Si noti 
come nello schermo siano presenti contemporanea¬ 
mente 20 sprite e come si ottenga con sufficiente 
precisione il controllo delle concidenze per determi¬ 
nare se una gallina sia stata investita. ■ 


IOO REM MOVIMENTO CIRCOLARE 
110 REM ******************* 

120 REM STATEMENT 

130 REM CALL LOCATE 

140 REM ***»*****#**-*-«•***« 

150 CALL CLEAR 

16 0 CALL CHAFm 123, "3C7EFFFFFFFF7E3C" ) 

170 HALL CHAR<129,"0101010101010107") 

180 CALL CHAR < i 7< . "OOOOOOOP- >‘X>00OFF " ) 

190 CALL CHAR(171,"01010101010101FF") 

200 CALL CHAR(132,"0101") 

210 CALL COLOR n:,9 f l> 

220 CALI HCHAFH [?, 1, 1 *0,32) : : CALL HCHARU3 : .. 32) 

CIO CALL VCHARU, 16, 129,24) :: CAI L HCHAR ( 12, 1 6,131 ) 

240 XO- 12 4 :: Y0=92 :: RAGGI0=60 

250 CALL SPRITE(#1,I2B,2,YO,XO+RAGSID 

260 ALFANO 

270 ALFA=ALFA+PT.-76 

28 X=XO*RAaGlQ*C<)S fAt FA) : : V YO A4 GtQaGlNIALF 1 
290 CALL L OC ATT ( # 1 . Y . X > s : GOTO 2 7' ■ 


Listato 1. Traiettoria circolare ottenuta mediante la 
subroutine LOCATE. 


1 00 

REM 

MOVIMENTO CIRCOLARE 

110 

REM 

* * » - «t * 

: 70 

REM 

STATEMENT 

ITO 

REM 

CALL MOTION 

140 

REM 

¥■*%»■** #***■#**♦ 

150 

CALL 

CLEAR 

160 

CALL 

CHAR •' ! 23. " 3C7EFFFFFFFF7E7C " > 

170 

CALL 

CHAR(129,"0101010101010107") 

160 

CALL 

CHAR ( l TU, "•>000000» «OOOOOÙFF" ) 

190 

CALL 

CHAR(171."0101 0 101010101 FF " ) 

200 

CAI t 

CHAR(172,"0101") 

21 0 

CALL 

COLOR(17.9,1) 

220 

CAI L. 

HCHAR<12,1, I 30, 32) : : CALL HCHAR (1 7 , 1,177. 7 2’ > 

70 

CALI 

VCHAR(1.16,129,24):: CALL HCHAR(1:, 16,131) 

240 

V- 2 

0 

250 

CALL 

SPRI TE (ttl, 126.2, 92, 194) 

260 

ALFA 

=0 

270 

Al FA 

=ALFAiPI/76 

280 

VX—V*SIN(ALFA): : VY=V*COS(ALFA) 

290 

CALL 

MOTION(#1,VY,VX): : GOTO 270 


Listato 2. Traiettoria circolare ottenuta mediante la 
subroutine MOTION. 


100 

REM 

PROVA JOYSTICK 

110 

REM 


120 

CALL 

CLEAR 


CAI L 

CHAR(129."0t030303017F7F6767670 

73F3 07< JCO( FFFEOEOEOEOEOEOFCF 

C04 



140 

CALL 

SPRITE(#1,123,2.100.50) 


CALL 

SPRITE(#2,123,9, IOO, 200> 

160 

CALL 

MAGNIFY(3) 

170 

CALL 

JQYST <1.X, Y) 

1 

CALL 

MOTION<#! . - 1 0*Y, 

: > 

CALL 

JQYST(2,X,Y) 

200 

CALL 

MOTION(#2, - 10*Y, 10*X.) 

210 

CALL 

COINÈ(#1.#2.20. CO) 

220 

IF C0=0 THEN 170 

5 

CALL 

DELSPRITE ( ALL) 

240 

0 I STLAY AT ( ! 2. 12) EfFl" : 'TRE BO ' " 

250 

FOF. 

TEMPORI TO IOOO :: NEXT TEMPO :: 

GOTO 120 


Listato 3. Piccolo gioco per verificare la coincidenza 
tra due sprite. È necessario il joystick. 


i 00 

REM 

MOVIMENTO 


1 10 

REM 



12* 

REM 

STATEMENT 


130 

REM 

CAU ■ 1 ’ ON 


140 

REM 



I 50 

CALI 

CLEAR 


160 

CALL 

CHAR(128, "3C7EFFF FFFFF7E7C") 

1 70 

CALL 

CHAR(129."F") 


180 

CALL 

CQLQR(13.9,9' 


1 90 

CALL 

VCHAR<10, ! 0. 129.6) 


200 

C ALL 

SPRITE Hf ! , 1 26,2. "• ■ 

.40,0,30) 

210 

CALL 

POS1TIQN(41.Y,X): : 

IF X*. 120 THEN 210 

2 20 

CALL 

MDTIQN (#t ,-20 1 0): : 

FOR T=1 TO ISO :: NEXT T 

230 

CALL 

MOTION(#1,0.20): : 

FDR T = 1 -TO 100 :: NEXf T 

240 

CALL 

MOTION(#1.20,0) : : 

FQR T«=l TO 1*5».' :: NEXT T 

250 

CALL 

MOTION(#1, 0 , 70) 


260 

CALL 

POS IT rari <#1, Y, X) : : 

• x - ri * 1 1 ■ - 

270 

CALL 

LOCATE (#1,96, 1): : 

GOTO 210 


Listato 4. Un esempio di movimento con aggiornamen¬ 
to dell* ostacolo. 


Listato 5. Nel gioco delle galline in autostrada sono 


state applicate le tecniche descritte. 


10 

REM 

*•* 

******** 

X****** 



.20 

REM 

* 


* 



30 

REM 

* 

LE BALL 

IME * 



40 

REM 

* 

IN AUTOS 

IRADA * 



uO 

REM 

X- 


-X- 



60 

REM 

** 

******** 

******* 



70 

REM 

!: 

ERGIO MORSAMI 



SO 

REM 


(0436/30 

36) 



90 

REM 

TI 

.99/4A E 

XT.BASIC 



100 

CAI 

_L 

CLEAR 




ite 

CAI 

,.L. 

CHAR <96,, 

"7FC1CDCDCDCDC17F ' 

&-RFT* 

( "C 

" ,, 16) £ 

”3F20EFE 

FEFEF203F"?-' 

RPTit ( "C 

11 , 16) 

120 

CAI 

_L 

CHAR(100 

,"FFOOFFFFF 

FFFOOFF 

"&RPT 

$ ( ' 

0" , 

16) 

& " FEO 1FDFDFDFDO1 FF 11 

&RPT4; ( 1 

0 ” , 1 6 

130 

CAI 

„L. 

CHAR<104 

,"FFSOBFBFB 

FBF80FF 

"2.-RPT 
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Il movimento 
in TI Extended BASIC 


Seguito listato 5. 




iti ( "0" , 16) &"FFOOFFFFFFFFOOFF"&RPT$ ( "0", .16 

630 

CALL KEY(2,K1,SI) 


) > 


640 

IF 31=0 THEN 670 


140 

DALL CHAR(108,"FC04F7F7F7F704FC"&RPT 

650 

IF K1=9 THEN CALL MOTION(#2,-5, 

0) 

$ C " 

:>“ , 16) &"FE83B3B3B3B383FE"&RPT* ( "0" , 16 

660 

IF' K 1 = 10 THEN CALL MOTION (#2, 0, 

0) 

) ) 


670 

CALL POSITION(#1,X1,Y1) 


150 

CALL OIAR<112,"007F717171717F00"&RPT 

680 

IF XI>100 THEN 820 


■li < " 

0 " „ 16 ) & " 00FE16E6E616FEOO" &RPT$ < 11 0 " 16 

690 

IF XI>68 THEN 780 


) > 


700 

IF XI>36 THEN 740 


160 

CALL CHAR<116,"007F686F6F687F00"&RPT 

710 

P1=P1+1 


* ( " 

0 " 16 ) & " 00FE8ESE8E8EFE00 "&RPT* ( " 0 " , 16 

720 

DISPLAY AT(3,10)BEEP SIZE(3): PI 


) > 


730 

CALL LOCATE (#1, 180, 72) :: : GOTO 950 

170 

CALL CHAR < 132, "60E1437F7E3C1828"&RPT 

740 

FOR A=7 TO 3 STEP -1 


'li ( " 

O",48)> 

750 

CALL COINC(#1,#A,8,C) 


130 

CALL CHAR(121,"00OOFFFFFFFF") 

760 

IF C=-l THEN 930 


190 

CALL CHAR(122,"OOOOFFOOOOFF") 

770 

NEXT A : : GOTO 950 


200 

CALL CHAR(123„"0000007E") 

780 

FOR A=ll TO 8 STEP -1 


210 

CALL CHAR(128,"F") 

790 

CALL CO I NC ( # 1, #A,8,0 


220 

CALL COLOR(12,16,15) 

800 

IF C=-l TI-IEN 930' 


230 

CALL COLClR ( 13, 15,15) 

810 

NEXT A : : BOTO 950 


240 

FOR RIGA“5 IO 21 

820 

IF XI>168 THEN 950 


250 

CALL l-ICHAR < RX GA, 1, 12832 ) 

830 

IF XI>132 THEN 880 


260 

IMEXT RISA 

S40' 

FOR A=15 TO 12 STEP -1 


270 

CALL l-ICHAR <5,1,121,32 ) 

850 

CALL CO I NC < # 1 , #A ,8,0 


280 

CALL l-ICHAR <7,1,123,32) 

860 

IF C=-l THEN 930 


290 

CALL HCH.AR < 9, 1, 12332') 

870 

NEXT A : :: BOTO 950 


300 

CALL HCII-IAR <11, 1123,32 ) 

880 

FOR A=20 TO 16 STEP -1 


310 

CALL l-ICHAR <13,1,122, 32 ) 

890 

CALL CO INC < #1,#A,B,C > 


320 

CALL HCHAR<15,1,123,32) 

900 

IF C=~.l THEN 930 



CALL HCHAR <17,1,123,32) 

9 ì 0 

NEXT A 


340 

CALL HCHAR <19,1, 123,32) 

920 

GOTO 950 


350 

CALL. HCHAR <21,1,121,32) 

930 

CALL SOUND(100,-3,2) 


360 

CALL 5PRITE <#i,132,16,169,72) 

940 

CALL LOCATE(#1,169,72) 


370 

CALL SPRI TE<#2,132,16,169,160) 

950 

CALL POSIT.1 ON ( #2, X2, Y2) 


380 

CALL SPRITE<#3,96,9,41,150, 0,-8) 

960 

IF X2>100 THEN 1100 


390 

CALL SPRITE <#4,100,9,41,164,0,-8) 

970 

IF X2>68 THEN .1060 


400 

FOR A=5 TO 7 

980 

IF X2>36 THEN 1020 


410 

CALL SPR.1 TE (#A, 112, A, 57,2"'A, 0-10) 

990 

P2=P2+1 


420 

NEXT A 

100 c 

DISPLAY AT <3,15)BEEP SIZE < 3):P 

? 

430 

CALL SPR I TE < <18, 9.6, 13,, 73,40,0, -• 12 ) 

1010 

CALL LOCATE (#2, 1.80, 160) : ; GOTO 

590 

440 

CALL SPR ITE < #9, 100,13, 73, 53,0-12) 

1020 

FOR A=7 TO 3 STEP -1 


450 

CALL SPRITE<#10,112,7,89,50,0,-20) 

1030 

CALL COINC(#2,#A,B,D) 


460 

CALL SPRITE(#11,112,11,89,100,0,-20) 

1040 

IF D=—1 THEN 1200 


470 

CALL SPRXTE(#12,116,5,105,10,0,18) 

1050 

NEXT A : : GOTO 590 


480 

CALL SPRITE (#13, 116, B, 105, 800,18) 

1060 

FOR A l 1 TO 8 STEP -1 


490 

CALL SPRITE <#14,104,9,121,60,0,12) 

1070 

CALL COINC(#2,#A,8,D) 


500 

CALL SPRI TE(#15,108,9,121,75,0,12) 

1 OSO 

IF D=-1 TI-IEN 1200 


510 

FOR A-16 TO 18 

1090 

NEXT A : : GOTO 590 


520 

CALL SPRI TE ( #A, !. 16, A-8+1NT ( A*A/ 100) „ 

1100 

IF X2>168 THEN 590 


137 

A* (A-12) *2,0, .10) 

11 .10 

IF X2>132 THEN 1160 


530 

NEXT A 

11 20 

FOR A=15 TO 12 STEP -1 


540 

CALL SPRITE <#19,104,7,153, 120,0,8) 

1 130 

CALL COìNC(#2,#A,8,D) 


550 

CALL SPR ITE (#20, 108, 7, .1.53, 135, 0,8) 

1140 

IF' D=— 1 THEN .1200 


560 

CALL MAGNIFY(3) 

1 150 

NEXT A : GOTO 590 


570 

DISPLAY AT<3,10>SIZE(3>s0 

1160 

FOR A=20 TO .1.6 STEP -1 


580 

DISPLAY AT ( 3, 15) SI ZE <3 ) :: 0 

1 170 

CALL COINC < #2,#A,8,D) 


590 

CALL KEY(1„K,S) 

1180 

IF D=—1 THEN 1200 


600 

IF 8=0 THEN 630 

1 190 

NEXT A : :: GOTO 590 


610 

IF K=19 THEN CALL MOTION(#1,-5,0) 

1200 

CALL SOUND < .100, -3, 2 ) 


620 

IF K=7 THEN CALL MOTION< #1,0,0) 

1210 

CALL LOCATE(#2,169,160) 




1.220 

GOTO 590 
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'Sudatore a battimenti 

scillafore a quarzo 

•seillatore a riljsvamemo 

•sciUatore di rilassamento a bloccaggio 

■saltatore quartato 

«seillazione ; 

iscillazione / a campo ritardante 
iscillazioue pendolare 
•sctllografo mi 

iscillografo a raggi catodici 
•scillogramma m 
iscilloscopio III 
ispite, calcolatore - 
•Itale figg 
male, cifra 

•(tetto ni rbs te f posto d... $ |v 

mica delle fibre. 


beat frequemv oscillator 
quurizoscdbior 
asiablc ntUUtvibrator 
blc«:king osulhitnr 
quari/ os. illator 
oscillaiiofl « 

reurdmjr- lielrt osciliatton 
I urti mg ni instatile coraJilion) 
osci log! aph n 


mitialize, to - a volume 


mizializzare un volume 


emen Lzatcuiragei 


conversion 


conversi or 
mie eie.) 
conversion (of signals eie ) 
conversion, program •* 
conversion instruclion 


(Irom old s) stem io new iraslorma/ione / (di un impianto ecc.) Umrimung I Umstcllung / 


trasformazione/.conv«- s one ( 
conversione dt programmi 
istruzione di conversione 


Uinformting £Utmcuung / 
Programmkonverticrung / 
Umsetibefchl m 



JtllCO Ugg 

itlimare i 


K -bit byte 
libcr upties 
opnealiv rcadahic 


ersion rOutr 
program 


conversion table. translaiion table tabella di conversione 


Umseiztabelle /. Umsetzungstabclle 


metodo 


neiodo di accesso sequenzial 
netodo di lettura 
-netodo di Monte Carlo 
metodo di ordinamento 
metodo di programmazione 
metodo di registrazione 
metodo di ricerca 
metodo di riconoscimento errori 
metodo di trasmissione 
mettere a punto'"' ,tf i 

mettere a punto in line? 
mezza parola 
mezzi m i'l 
mezzo »i 

mezzo addizionatore 
mezzo di immagazzinamento 
mezzo di protezione dati 
mezzo fisico di trasmissione 
mezzo trasmissivo i lardv, re 
controllo deita irasnmsmnc 
MF = modula zi one ''rqueii 
micro ir 

microcalcolatore ",.i 

mio " rr.icr. ■p'-n.'t'SSO e 

genera.ni."le completo J, i 
periferiche 

microcalcolatore, sistema a 
microcalcolatore monochip 
microcalcolatore su singola 
niicrociclo "i 
microcircuito »n 
microcircuito integralo 
microcomputer n? 
microcomputer, piastra di - 
microcomputer didattico 
microcomputersingle chip 


er il 


microcomputer su un unico c 
microcontroller ni 
microelaboratore •• .1 i 

ii", 

microelettroniea / 
mtercfiche f 
microfilm m 
microfilm, uscita su - 
microfilmatura / 
microfotogramma in 
microistruzione / 
microistruzione / 
micrologica / 
micrologico >*i 
micrologico LSI 
microminiaturizzato. circuito 
microminiaiurizzazione I 
micromodulo ni 
microonde / 
microoperazione / 
microplacchetta / 
microplacchetta ' 'rii m. r> 
microprocessore i |iP) n 
microprocessore a chip singoi ■ 


trasmettere 


trasmettere 
trasmettere • 

trasmettere per (descrivente 
trasmettitore * 
trasmettitore n< 
trasmettitore sincrono 
trasmissione ; 1 1 1 ) 

trasmissione nisvu 1 
trasmissione, fattore di - 
trasmissione, sistema di 
trasmissione a banda laterale 
trasmissione a corrente di las « 
trasmissione a corrente di ripe so 
trasmissione a più terminali 
trasmissione analogica 
trasmissione asincrona dei da 
trasmissione automatica 
trasmissione binario-sincroni 


r intimimi lime. 


t 


.MUéiìfUÌit 


conversion transconductance 
conversion unii, converter n 


assestamento 

trasconduiunz.it d conversione 
convertitore m corivn i tricc / 


seqiii 
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i SEGRETI DEI PERSONAL 


COMMODORE VIC 20 E C 64 

La gestione della tastiera 

di Alessandro Guida 


La conoscenza di come il computer gestisce la 
tastiera si rivela una inesauribile fonte di idee. Vedre¬ 
mo come approfittare delle caratteristiche del VIC e 
del C 64 per ottenere una gestione professionale dei 
tasti di funzione e come simulare la digitazione di 
linee BASIC da programma. 

Per semplificare la descrizione divideremo il pro¬ 
blema in due parti: 1 - la gestione della tastiera; 2 - la 
gestione dei dati forniti da tastiera. 

Vi sarete resi conto che il computer svolge alcune 
operazioni periodicamente, senza alcun vostro co¬ 
mando,come attivare o disattivare il motore del regi¬ 
stratore o incrementare l’orologio interno (variabile 
TI$). Queste operazioni vengono eseguite 60 volte al 
secondo, ogni volta che viene attivata da un timer 
interno la linea di Interrupt. Quando il microproces¬ 
sore riceve un impulso lungo questa linea interrompe 
le operazioni che ha in corso e passa ad eseguire una 
routine, detta Routine di Interrupt. Durante questa 
interruzione oltre alle operazioni accennate prima, 
viene eseguito il controllo della tastiera. 

L’indirizzo di partenza della Routine di Interrupt è 
contenuto nel vettore $0314, $0315 (788, 789) ed è 
normalmente $EABF per il VIC e $EA31 per il C 64. 

Come abbiamo detto l’interrupt è provocato da un 
timer che fornisce un impulso ogni sessantesimo di 
secondo. Esiste, però una locazione che consente di 
disabilitare le sorgenti di interrupt (possono essere 
anche altre diverse dal timer). 

Questa è $912E (37166) per il VIC e $DC0D 
(56333) per il C 64. La tabella 1 ci dà i valori necessari 
per abilitare o disabilitare l’interrupt generato dal 
timer. 

Proviamo, quindi, il programmino 1. Non funzio¬ 
neranno più né il tasto di stop né la funzione TI$. 

Abbiamo quindi stabilito con sicurezza che la rou¬ 
tine di interrupt esegue anche la lettura della tastiera. 
In particolare ciò viene realizzato dalla KEYBO- 
ARD SCANNING ROUTINE memorizzata a parti¬ 
re dalla locazione $EB1F sul VIC e $EA87 sul C 64. 

La routine di scansione della tastiera. 

La tastiera del VIC (e del C 64) è organizzata come 
una matrice di 8 x 8 tasti. Fa eccezione solo il tasto di 
RESTORE che è gestito a parte. 

Le otto colonne sono altrettanti bit della porta A di 
un VIA (Versatile Interface Adapter) mentre le righe 
fanno capo alla porta B. Ad ogni porta è associata 
una locazione di memoria. 


Il tasto premuto viene identificato attraverso le sue 
coordinate. Ecco le operazioni svolte dalla routine: 

1 Attiva tutti gli 8 bit della porta B e controlla se sulla 
porta A è presente qualche segnale. Se si vuol dire che 
un tasto è stato premuto altrimenti la routine viene 
terminata. 

2 Viene testata una riga per volta. Quando una linea è 
attivata, il computer controlla le 8 colonne e ne ricer¬ 
ca una eventualmente attiva. 

Il registro Y del micro viene incrementato ad ogni 
colonna analizzata.' 

3 Se nessuna delle colonne risulta attiva, si passa alla 
riga successiva. Quando questa viene trovata si arre¬ 
sta la procedura di analisi e il numero del tasto conte¬ 
nuto in Y viene salvato nella locazione $CB (203). 

4 Viene controllato se il numero del tasto corrisponde 
allo SHIFT o al simbolo della COMMODORE. In 
questo caso viene aggiornata la locazione $028D 
(653), come riportato in tabella 2. 

5 Secondo il contenuto di $028D viene scelta una 
delle 4 tavole contenenti i codici ASCII relativi al 
numero del tasto premuto. In $F5, $F6 (245, 246) 
viene conservato l’indirizzo di partenza della tavola 
scelta. Questa operazione viene svolta in una routine 
il cui inizio è nel settore $028F, 0290 (655, 656). 

6 Utilizzando come puntatore il numero del tasto 
contenuto in $F5 viene letto all’interno della tavola il 
codice ASCII corrispondente al tasto. 

7 Questo codice viene memorizzato nel buffer di 
tastiera che inizia in $0277 (631). Viene anche incre¬ 
mentato il contatore dei caratteri nel buffer, $C6 
(198). Il numero massimo di caratteri ammessi nel 
buffer, normalmente 10, è contenuto in $0298 (649). 

8 Viene controllato se occorre attivare la funzione di 
REPEAT. I registri interessati sono i seguenti: 


$028A (650) 

0 = Repeat solo tasti 


cursore. 


128 = Repeat tutti i tasti. 

$028B (651) 

Determina il tempo 
necessario perché inizi 
la ripetizione. 

$028C (652) 

Determina la velocità 
di ripetizione. 


9 Termina la routine. 

A questo punto possiamo cominciare a trarre alcu¬ 
ne conclusioni: 

1) Come descritto al passo 3 la locazione $CB 
contiene sempre il codice del tasto premuto in un 
certo istante. Abbiamo quindi a disposizione un altro 
metodo per conoscere durante l’esecuzione di un 
programma il tasto premuto oltre la nota funzione 
GET. 
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È facile verificare ciò con la seguente linea BASIC: 


10 PRINT “(Home)” PEEK (203): GOTO 10 

Date il RUN e vedrete in alto a sinistra il codice del 
tasto che premete. Se nessun tasto è premuto si legge 
C 64. 

La tabella 3 riporta i codici dei tasti del VIC e del C 
64. Il programmino del listato 2 è una routine che 
utilizza questa possibilità per gestire i tasti di funzio¬ 
ne. Chiamando la routine avremo in FK% il numero 
del tasto funzione premuto, che si potrà utilizzare, ad 
esempio, con una istruzione di ON FK% GOTO ... 

2) Se vogliamo estendere in qualche maniera le 
funzioni della tastiera è necessario modificare uno 
dei due vettori visti. 

Poiché, come già sappiamo, questi vettori vengono 
richiamati 60 volte al secondo è necessario disabilita¬ 
re l’interrupt prima di modificarli, altrimenti si va 
incontro al blocco del sistema. 

Generalmente il vettore che viene modificato è 
quello contenente l’indirizzo d’inizio della routine 
d’interrupt. A volte questo può andare bene, ma se 
intendiamo modificare la routine di gestione tastiera 
è preferibile.cambiare il vettore $028F, $0290. 

Ed è ciò che faremo, infatti, per implementare l’uso 
dei tasti funzione assegnando ad ognuno di essi una 
stringa. 

Memorizzeremo la routine in linguaggio macchina 
al top della memoria lasciando anche lo spazio per 
memorizzare le stringhe in modo che non vengano 
toccate dai comandi CLR e NEW. 

11 listato 3 riporta la versione disassemblata per il 
VIC. Il principio è esattamente uguale nel caso del C 
64, per il quale cambiano solo qualche indirizzo e i 
codici dei tasti. Il disassemblato si spiega da sé. Il 
listato 4 contiene il modulo in BASIC da caricare e 
far girare per attivare le funzioni. 

Quindi, la pressione di uno dei tasti di funzione 
fornisce sul video la stringa ad esso associata compre¬ 
so il carattere di RETURN se vi era stato inserito. Va 
notato che nell’impostare le stringhe al posto di RE¬ 
TURN bisogna battere la freccia a sinistra (il primo 
tasto in alto a sinistra). 

Per disabilitare l’associazione stringhe-tasti fun¬ 
zione premere contemporaneamente STOP- 
RESTORE. Per ripristinare il tutto digitare PO- 
KE55,0:CLR:SYS (PEEK(251)*256). 

Le stringhe sono memorizzate negli ultimi 128 byte 
di memoria, riservando 16 byte per stringa. La fine di 
ognuna di esse è segnalata da un byte uguale a zero. 

Il programma, nel listato 5, assegna ai tasti funzio¬ 
ne le stringhe contenute nelle variabili KE$ (1) ... 
KE$ (8), e può essere inserito, anche, come subrouti¬ 
ne all’interno di un’altro programma. 
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Bene, per questo mese abbiamo terminato. Nel 
prossimo numero di Personal Software completere¬ 
mo il discorso. Ci saranno anche due programmi 
molto interessanti. Buon lavoro. ■ 



VIC 


64 

DISABILITAZ. 

P0KE 37166,127 

P0KE 

56333,3 

ABILITAZIONE 

P0KE 37166,192 

P0KE 

56333,131 


Tabella 1. Valori necessari per abilitare o disabilitare il 
timer che fornisce il segnale di interrupt a! micropro¬ 
cessore del VIC o C 64. 


TASTO 

LOCAZ. S028D 

SHIFT 

1 

COMMODORE 

2 

SH I F T + C0MM. 

3 

CTRL 

4 


Tabella 2. Contenuto della locazione $028D (653) in 
funzione del tasto premuto. 



vie 

64 


VIC 

64 


VIC 

64 

0 

1 

DEL 

22 


T 

44 

K 


1 

3 

RETURN 

23 

CRSR R 

X 

45 



2 

5 

CRSR R 

24 

STOP 

7 

46 

: 

0 

3 

7 

F7 

25 


Y 

47 

F 3 


4 

9 

FI 

26 

X 

G 

48 

Q 

& 

5 


F 3 

27 

V 

8 

49 

E 

• 

6 

& 

F5 

28 

N 

B 

50 

T 


7 

DEL 

CRSR D 

29 


H 

51 

U 

HOME 

8 


3 

30 

/ 

U 

52 

0 


9 

W 

W 

31 

CRSR D 

V 

53 

0 

r 

10 

R 

A 

32 

SPACE 

9 

54 

t 

t 

11 

Y 

4 

33 

Z 

I 

55 

F5 

/ 

12 

I 

Z 

34 

C 

J 

56 

2 

1 

13 

P 

s 

35 

B 

0 

57 

4 

«- 

14 

* 

E 

36 

M 

M 

58 

6 


15 

RETURN 


37 


K 

59 

8 

2 

16 


5 

38 


0 

60 

0 

SPACE 

17 

A 

R 

39 

FI 

N 

61 

- 


18 

D 

D 

40 


+ 

62 

HOME 

Q 

19 

G 

6 

41 

s 

P 

63 

F7 

STOP 

20 

J 

C 

42 

F 

L 




21 

L 

F 

43 

H 

' 





Tabella 3. Codici tasti letti nella locazione $C5. 


10 PRINT"nBWBWfflOINTERRUPT ABILITATO" 

20 FORI=0TO1000 • PRINT"*!"TI*, I : GETA» : PRINTA* 
30 NEXTI 

40 PRINT"a«*pm»IHINTERRUPT DISABILITATO" 

50 P0KE37166,127 

60 FQRI=0TO1000 : PRINT'W'TItj 1 ■GETAS : PRIHTA* 
70 HEXTI 

80 P0KE37166*192 
90 GOTO10 


PER IL 64 SOSTITUIRE : 
50 P0KE56333.3 
80 P0KE56333,131 


Listato 1. Prova della disabilitazione dell’interrupt ge¬ 
nerato da! timer. 
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10 REM 




120 

REM CRLCOLR TRSTO 

20 REM 

ROUTINE PER RNRLIZZRRE I 

TRSTI 

FUNZIONE 

130 

FK^*-<KEV*39)-3#CKEV*47>-3*<KEV*33^-7#(KEV-63> 

30 REM 




140 

1F FKJO0 THEN FKK*FKX+SH 

40 REM 




130 

RETURN 

30 REM 

RESTITUISCE UN NUMERO DR 

1 R 6 

NELLA 



60 REM 






70 REM 

VRRIRBILE FKX 





60 REM 






90 REM 






100 KEV**PEEK< 197) ; REM LEGGE IL 

TRSTO 

PREMUTO 

PER 

IL 64 CRMBIflRE : 

110 SH*PEEK<633)RND1 : REM 1-SHIFT PREMUTO 

FK » 

-<KEV-4>-3*<KEV“3>-3#CKEY»6>-7*<KEV«3> 


Listato 2. Routine per ottenere il numero di tasto funzione premuto. 


Listato 3. Disassemblato della routine di abilitazione dei tasti funzione. 


1D00 

78 



SEI 


'Routine di abilitazione tasti 

1 D01 

18 



CLC 


' funzione 

1D02 

A5 

37 


LDA 

$37 

1 

1D 04 

69 

2 E 


ADC 

&2E 

'Memorizza in $028F,0290 l’indirizzo 

1D 0 6 

8D 

8F 

02 

STA 

$028F 

'di partenza della routine. 

1D09 

A5 

38 


LDA 

$38 

1DOB 

69 

00 


ADC 

&00 


1D OD 

8D 

90 

02 

STA 

$0290 


IDI 0 

A5 

37 


LDA 

$37 

'In $ F B,$ F C l'indirizzo dei codici 

1D12 

69 

2A 


ADC 

&2A 

'dei tasti. 

1D14 

85 

FB 


STA 

$FB 


1 DI 6 

A5 

38 


LDA 

$38 


1 DI 8 

69 

00 


ADC 

&00 


IDIA 

85 

FC 


STA 

$FC 


1D1C 

A5 

37 


LDA 

$37 

'In $FD,FE l'indirizzo d'inizio delle 

1 DI E 

69 

80 


ADC 

&80 

'stringhe associate ai tasti funzione. 

1D20 

85 

FD 


STA 

$FD 

1 D22 

A5 

38 


LDA 

$38 


1D24 

69 

00 


ADC 

&00 


1D26 

85 

FE 


STA 

$FE 


1D28 

58 



CLI 



1D29 

60 



RTS 


1 

1D2A 

27 

2 F 

37 

3F 


'Codici tasti funzione 

1D2E 

A5 

CB 


LDA 

$CB 

i 

1D30 

A0 

03 


LDY 

&03 

'Controllo se il codice del tasto 

1 D32 

DI 

FB 


CMP 

($FB),Y 

‘premuto corrisponde ad un tasto 

1D34 

F0 

06 


BEQ 

$ 1D 3 C 

'di funzione. Nel registro Y vi e' 

1D36 

88 



DE Y 


'il numero corrispondente da 0 a 3. 

i 

1D37 

10 

F 9 


BPL 

$ 1D32 

1D39 

4C 

DC 

EB 

JMP 

SEBDC 

'Se no salta alla routine originale. 

i 

1D3C 

C 5 

C5 


CMP 

$ C 5 

'Se e' lo stesso tasto della volta 

1 D3E 

F0 

2C 


BEQ 

$ 1D6C 

'precedente abbandona la routine. 

i 

1 D40 

85 

C 5 


STA 

$C 5 

'Lo memorizza per il prossimo contr. 

i 

1D42 

AD 

8D 

02 

LDA 

$028D 

'Mascheramento dei bit dei tasti 

1D45 

29 

01 


AND 

&01 

’Commodore e Ctrl. 

1D47 

8D 

80 

02 

STA 

$028D 

'Memorizza lo stato dello SHIFT 

i 

1D4A 

98 



TYA 


'Riprende il numero del tasto. 

1D4B 

0A 



ASL 


' Lo molti piica per 2. 

1 D4C 

18 



CLC 


‘Vi somma lo shift (1 se e 1 premuto) 

1D4D 

6D 

8D 

02 

ADC 

$0280 

'ottenendo il num. del tasto da 0 a 7 

1D50 

0A 



ASL 



1D51 

OA 



ASL 


'Moltiplica il numero del tasto 
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Per lavorare’ al meglio con il Pet e l’M20 

Paolo e Carlo Pascolo 

IL BASIC DEL PET E DELL «20 


Il personal computer rappresenta oggigiorno, 
oltre che un valido aiuto nel lavoro, anche 
un’irresistibile tentazione. Può capitare, così, che 
qualcuno si trovi a disporre di un Commodore o 
di un M 20 Olivetti senza conoscerne appieno 
il linguaggio e le possibilità. Questo volume 
vuol rappresentare proprio un prezioso 
supporto per chi debba, o voglia imparare a 
programmare in Basic su questi strumenti 
di lavoro, gioco o studio: comandi, 
istruzioni, informazioni, consigli... fino a 
diventare davvero 'padroni’ di due dei più 
diffusi Personal Computer. 


226 pagine. Lire 16.000 
Codice 336.D 
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Per ordinare il volume 
utilizzare l’apposito tagliando 
inserito in fondo alla rivista 


GRUPPO EDITORIALE 
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PROIB TO 


O come aver cura di un computer 


In quanti modi si può rovinare un computer, grande o 
personal che sia? L’autore di questo volume ne elenca 
molti: alcuni dovuti a sbadataggine, altri a troppa 
confidenza con il mezzo, altri ancora a scarsa 
conoscenza dei suoi meccanismi e della loro estrema 
vulnerabilità. C’è, anche, un’intera parte dedicata ai 
sabotaggi da calcolatore: furti, spionaggio 
industriale, distruzione delle informazioni... 

Insomma un libro curioso, ma prezioso, per 
vivere per anni, senza problemi, insieme al 
proprio amico 'cervello’ elettronico. 


198 pagine. Lire 14.000 Codice 333 D 
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Per ordinare il volume utilizzare 

l’apposito tagliando inserito in fondo alla rivista 



Seguito listato 3. 


1D52 

OA 



ASL 


'per 16, ottenendo il puntatore alla 

1D53 

OA 



ASL 


'stringa corrispondente. 

1D54 

A8 



TAY 


'Conserva il puntatore nel registro Y 







'ROUTINE PER COPIARE LA STRINGA NEL 







'BUFFER DI TASTIERA. 

1D55 

A2 

00 


LDX 

&00 

'X=puntatore nel buffer tast. 

1D57 

B1 

FD 


LDA 

($FD ),Y 

'Carica il carattere Y della stringa. 

1D59 

FO 

OF 


BEQ 

$ 1D6A 

'Se = 0 termina. 

1D5B 

C9 

5 F 


CMP 

&5F 

'Confronta col carattere freccia. 

1 D5D 

DO 

02 


BNE 

S1D61 

'Se e' uguale vi sostituisce il 

1D5F 

A9 

OD 


LDA 

&0D 

'carattere di RETURN (&0D). 

1D61 

90 

77 

02 

STA 

$0277,X 

'Lo memorizza nel buffer. 

1D64 

C8 



INY 


'Incrementa i due puntatori. 

1D65 

E8 



INX 



1D66 

EO 

OA 


CPX 

&0 A 

'Controlla se e' il decimo carattere. 

1D68 

DO 

ED 


BNE 

$1D57 

'Se no torna a leggere il seguente. 

1D6A 

86 

C6 


STX 

$C6 

'Memorizza il numero dei caratteri. 

1D6C 

4C 

D6 

EB 

JMP 

$EB42 

'Termina questa routine e quella di 


'gestione tastiera, tornando alla 
'routine di interrupt. 


10 P0KE36,PEEK<36 >-1 P0KE35,0 : CLR 
20 IN=PEEK< 36> #256 

30 F0RI=0TQ110 ; RERDR:POKEIN+1,fi :NEXT 
40 FOR1=111T0233 : POKEIH+I,0•NEXT 
30 SVS<PEEK C36)*236 > END 

1009 BRTR129,024,163>035.103.046.141>143.002.165 

1010 DRTR036, 105.000. 141, 144,002, 163,035, 103,042 
1020 DRTfìl33,231 .• 163,036, 103,000, 133,232, 165,053 
1030 DATA105,128,133,233,165,056,193,000,133,234 
1040 DRTR038,@96,039,047,033,063, 163,203,160,003 
1050 DRTR209,231,240,906,136,016,249,076,220,233 
I960 DRTR197,197,249,944,133,197,173,141,092,041 
1070 DRTR001,141,141,902,132,910,024,109,141,902 
1989 DRTR010,010,919,010,168,162,900,177,253,240 
1099 DRTR813,201,093, 296,992,169,913,137,119,992 
1109 DRTR200,232,224,019,208,237,134,198,976,214,235 


MODIFICHE PER IL 64 : 

1940 DRTR083,996,004,995,006,093,163,203,160,003 
1930 DRTR209,231,240,906,136,916,249,976,072,235 
1190 DRTR200,232,224,919,208,237,134,198,076,066,235 


Listato 4. Modulo BASIC per attivare i tasti funzione. 
Permette di associare un testo o un comando ad ogni 
tasto funzione. 


10. FORI=0TO7:RERD KE$<I) : NEXT 

20 DRTRLIST«-, OOSUB, RUN+-, , LORD<-, GOTO, SAVE> FOR I =0TO 
90 REM 

94 REM ROUTINE PER MEMORI2ZRRE IL CONTENUTO 
96 REM DELL' RRRRV KE*0 
98 REM 

109 F0RI=9T07 

110 LUNG=LEN<KE$ <I> > = IFLUNG>9THEHLUNG=9 
120 IFLUNG=0THEN160 

139 FORJ*1TOLUNG 

140 P0KE<PEEK<252>#256+127+I#U6+J>. ASC<MIM<KES<I >.J.1>> 
150 NEXTJ 

160 POKE <PEEK < 232)*236+128+1*16+LUHG),9 
179 NEXTI 


leggete 

VIDEO 

GIOCHI 



Listato 5. Routine per assegnare ai tasti funzione le 
stringhe contenute nel vettore KE%(). 

Il carattere immette un return ne! testo. 
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Collisioni per ZX Spectrum 


// lettore Marcello Morchio, anni 15, di Genova, 
ci invia questa interessante conversione del noto 
arcade game, pubblicato la prima volta sul n. 3 
del Dicembre 1982. 


Il programma da me elaborato differisce un po’ 
dall’originale per quanto riguarda le regole e la dina¬ 
mica del gioco. 

La prima differenza è che nella mia versione la 
macchina comandata dal computer lascia ogni tanto 
dietro di sé delle mine blu, da evitare perché causano 
la distruzione della macchina del giocatore; inoltre 
quando la macchina incontra davanti a sé un caratte¬ 
re grafico, che può essere una mina o la vettura 
comandata dall’utente, lascia una copia di sé stessa. 

L’automobile del computer, infine ha un percorso 
fisso, perché il suo movimento è determinato dalle 
linee DATA in fondo al programma (linee 1000 e 
1001), che possono essere variate a piacere, ricordan¬ 
do che l’ultimo dato deve essere uno zero per infor¬ 
mare il computer che deve essere eseguito un RE- 
STORE per far ripartire il ciclo; naturalmente occor¬ 
re far sì che il punto di partenza della macchina 
coincida con quello d’arrivo, per evitare che la vettu¬ 
ra tagli le cornici o causi errori di tipo 5 (out of 
screen) o B (integer out of range). 

Un’altra differenza deriva dal fatto che c’è la possi¬ 
bilità, quando si è ripulito uno schermo da tutti i 
puntini verdi o, come accade più spesso, si è rimasti 
bloccati fra le mine, di cancellare lo schermo premen¬ 
do il tasto 0. Tale comando cancella lo schermo, 
esegue un RESTORE, inizializza i valori delle coordi¬ 
nate delle due macchine e fa ricominciare il gioco 
togliendo 100 punti dal punteggio. 

Questa operazione può essere però eseguita solo 
tre volte nel corso del gioco; è quindi consigliabile 
non abusarne. 

La macchina si muove con i tasti dei comandi di 
cursore, (5,6,7,8) e mantiene l’ultima direzione im¬ 
partita anche se non viene premuto alcun tasto, fin¬ 
ché non incontra una barriera o una delle macchine 
lasciate in giro dal nemico: in questo caso si blocca e 
vengono sottratti dal punteggio 10 punti per ogni 
giro di programma, finché non viene mutata la dire¬ 
zione. 

Il gioco termina quando la macchina del giocatore 
viene distrutta dalla macchina del computer o quan¬ 
do incontra una mina. Una curiosità: finito il gioco il 
computer si pone in attesa che venga premuto un 



Figura 1. La macchina del computer nelle sue due 
posizioni, orizzontale e verticale. All'inizio è verticale 
(vedi linea 260), ma viene variata a seconda della 
direzione che si deve prendere (vedi linee da 337 a 340). 
Si noti come le forme siano simmetriche, per poter 
immagazzinare in memoria solo due caratteri e non 
quattro come si dovrebbe volendo rappresentare tutte 
le direzioni. 



Figura 2. Una fase del gioco. Si notino le mine e le due 
macchine uguali (una in alto e l’altra a sinistra) oltre a 
quella de! giocatore. Solo una di queste due si muove, 
l’altra è una di quelle che il computer lascia per la 
strada per intralciare il gioco. 











« , s . 

. 


SuORt 3 ISO 









* 




HI-SC.3 790 








é 

è 

:. 

■ 

è 

. 





. 







■.,, 


ir 


PREMI 

UN TASTO 

PER 

GIOCARE 


Figura 3. Fine della partita. Viene visualizzato il 
messaggio “PREMI UN TASTO PER GIOCARE” e 
l’omino che balla (in centro, a sinistra del quadrato). È 
scomparsa la macchina dell’utente, che è stata 
sostituita dal carattere dell'esplosione nell’impatto con 
una mina (a sinistra, ultima cornice). 


91 



















\ 


, ."'V y 
€z<Aé?''*yà 


Collisioni 
per ZX Spectrum 


tasto; durante l’attesa il nostro ZX suonerà la musica 
di Ufo Robot e il guidatore della macchina avversaria 
scenderà e si metterà a ballare. 

Durante la partita viene costantemente indicato il 
punteggio corrente e il punteggio massimo ottenuto 
da quando si gioca. 

Buon divertimento a tutti! ■ 


Note al programma 


10-20 

100-210 

220-260 

290 

295-341 

342-400 


450-455 

460-490 

1000-1001 

1050 

8000 

9000 


Inizializzazione dello schermo (INK, PA¬ 
PER, BORDER) e della variabile che con¬ 
tiene il punteggio massimo (hi). 

Disegno delle cornici e dei puntini. 
Inizializzazione delle coordinate delle due 
macchine (x,y per la macchina del giocato¬ 
re; xl, yl per quella del computer), dei 
fattori di incremento di queste (sx, sy, sx 1, 
syl) e delle stringhe p$ e 1$ che contengono 
le due macchine nella loro ultima posizione 
(vedi figura 1). 

Viene letto un dato del file contenente i 
movimenti della macchina del computer. 
Viene letta la tastiera, aggiornati i valori 
dei fattori di incremento delle coordinate, 
aggiornate le coordinate delle due macchi¬ 
ne. 

Fase di controllo: viene controllato che la 
macchina non trapassi una barriera, se è 
stato mangiato un puntino e se le coordina¬ 
te delle due macchine coincidono, nel qual 
caso si passa alla linea 450. Conclusione del 
loop principale. 

Viene stampato il carattere dell’esplosione 
e viene simulato uno scoppio con l’istruzio¬ 
ne BEEP. 

Loop di attesa con emissione della musica. 
Istruzioni DATA contenenti i movimenti 
della macchina del computer. 

Dati contenenti le note e i tempi della can¬ 
zone Ufo Robot. 

Routine per l’inizializzazione dei caratteri 
grafici. 

Salvataggio del programma. 


N.B. La corrispondenza dei caratteri grafici è que¬ 
sta: A: macchina del computer verticale; B: mac¬ 
china del computer orizzontale; C: macchina del 
giocatore verticale; D: macchina del giocatore 
orizzontale; I: mina; K, L: posizioni dell’omino 
che balla; M: esplosione. 


Listato 1. Il programma BASIC. 


5 30 SUE? 3000 

10 SORDEF. 7 : F'HPER T: XHK 0: 


?0 Lei hi =0 

100 LET p=0. CS_S INK 2: PLOT 
12,156: DfifiU 0,20-156: DRRU 156- 
20,0: DRfiU 3,156-20: DRfitJ 20-156 

, e 

110 PLOT 23.14.0. DRflU 0.36-140: 

DHflU 14.0-36.0: ORSÙ 0.140-36: C 

RRU 36-140.® 

120 PLOT 44,124: DRflU 0.52-124: 

ORBO 124-52,0: DRRU 0,124-52 D 

RflU 52-124,® 

130 PLOT 63,105- DRfiU 0.SS-136: 

ORflU 136-68,0: DRRU 0.108-68: C 

RRU 68-105,0 

140 PRINT hT 10,5 ,■ SSB , RT 11,9; 


150 INK 0 

160 PRINT RT 11,2;" ";RT 

11 . 11 :" 

170 PRINT RT 10.2;" ",RT 

10 , 11 ," ” 

13® FOR n =3 TO 2: PRINT RT n,9. 
” : NEXT n 

190 FOR n S12 TO 13. PRINT RT n 
9; ": NEXT D 


195 

PRINT 

RT 4,20 

,"SCORE 

*• ; 

RT 6 

, 20 ; " 

HI,5C. 

hi 




200 

INK 4: 

PRINT 

RT 3,2: 

** m 




;hT 18, 










16,4: 




p. * 1 

. _ „ _ 


, RT 14 



RT 

3,3, 

" « - » - 

1 ’ J ftT 12 i 8/ .. * 




210 

FOR n = 

3 TO 18 

PRINT 

RT 

n > 2 

" . " j 

RT n , 1 


NEXT n: 

FOR n = 

5 TO 

16, PRINT RT 

n , 4, " . " 

; RT 

n , 1 

5 : " . " 

: NEXT 

n : FOR 

n =7 TO 

14 

PR 

INT RT n . 6 : 

" . " ; RT 

n . 13 ; ". 


NEXT 

n : F 

OR n=9 

TO 12 : 

PRINT 

RT 

n , 6 ; 


,": NEXT n 
LET y =2 : LET SX=0 : 
y 1=17 


1 .",RT n,11 ; " 

220 INK 0 
230 LET x=3: 

LET s y =1 

240 LET X1 = 15 : LET 
250 LET p $ = ■■§■■ 

260 LET l$=”S" 

290 RERD dir: IF dir=0 THEN RE5 
TORE : SO TO 290 

291 IF INKEY$="0" THEN RESTORE 
GO TO 150. LET P=R-10Q 

295 IF INKEY $ = "” THEN GO TO 330 
300 IF INKEYJ=”«" THEN LET sq=l 
LET 5X=0: LET P* = "H" 

305 IF INKEY$="5" THEN LET SM=- 
1: LET SX=0: LET p $ = "§■■ 

310 IF INKEY$="6" THEN LET sx=l 
LET S y =0 . LET p$ = "M" 

320 IF INKEY $ = "7" THEN LET SX=- 
1 : LET 3y =0 : LET pS = "® " 

330 LET X=X+SX: LtT y=4+Sy 

335 IF X=X1 RND y =U 1 THEN GO TO 

450 


337 IF dir=5 THEN LET syl=l: LE 
T £ X1=3 : LET = 

335 IF dir =5 THEN LET s y 1 = -1 : L 
ET 5X1=0: LET l £="**" 

339 IF di r =6 THEN LET 5X1 = 1: EE 
T £ y1=0 : LET l$ = "8" 

340 IF dir=7 THEN LET SXl=-l: L 
ET syl=0: LET = 

341 LET Xl=X 145X1. LET y 1 =y 1 +s y 


342 LET ix=0. LET t$=SCREENt tX 
1,y1): IF *$="." THEN LET iX=4 

343 IF X =X 1 RND y=y1 THEN GO TO 
450 

344 IF ATTR (X.y)=60 THEN LET p 
= P +50 

345 XF RTTR (X,y)=58 THEN LET X 
= X -5X : LET y =y-£ y : LET p=p-10 

346 IF RTTR CX , y) =57 THEN GO TO 
450 
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Seguito listato 1. 

350 PRXNT AT X,y,p$: IF ATTR (X 

-sx , y -s y .1 < > ss then print at x-sx 
j y - s- y : " " 

355 BEEP .005.0 
360 =R INT AT 4 .. £3 ; p 

370 PRINT AT xl.ylj INK 2.: 1$, I 
NK ix;RT x1-sx1,y1-sy1;fc$ 

330 IF INT (RNPilB)=0 THEN PRIN 
T RT x1-sx1.« 1-sy1; INK 1; "®" 

400 GO TO 290 

450 POR h=l TO 3: FOR n=7 TO 0 
3TEF -1. PRINT RT x-sx.y-SM; INK 
D )■■%" : BEEP . ©07 , —22 : NE.XT ri: N 
EXT h 

455 PRINT RT 21.0; FLASH 1,"PRE 
MI UN TASTO PER GIOCARE" 


460 

IF p > =ni 

THEN LET h1=p 

461 

LET q = .5 

72: LET q 1 = . 5/4 

462 

LET jU=l 


465 

RESTORE 

1050 

470 

READ d,n 

IF d=1000 THEN GO 

TO 

465 


475 

BEEP d,n 

IF INKEYS THE 

i GO 

TO 49© 



476 IF jU/2 = INT (jU/2) THEN PRI 
NT AT X 1-SX 1*2.. y l-sy 1*2; "A " : GO 
TO 478 

477 PRINT AT X1-SX1*2,y1-Sy1*2; 

■t " 

479 LET Ju=JU+l: GO TO 470 
490 RESTORE . GO TO 100 
500 STOP 

1000 DATA 7,7,7.7,7,7,7,7,7.7.7, 
7,7,7,7,5,5,5,5,5,5,5 , S , 5,5,5,5 , 
S,5,5,6,6,8,6,6,6,6,3,3,6,6,6,6, 


Seguito listato 1. 


e,S,S,3,8.8,3,7,S,7,5.5,5,5,7,7, 
7,7,8 , S , 6,6,3,8, 3 ,7,7,7,5,7,7,7 , 
7,3,8,3,8,8.3,6,3.3.3.3,6.6.6.3, 
6.5.5.5.5.5.5.6.5.5.5,5.5.5,5,5 
1001 DATA 7,7,7,7,7,7,7, 8 ^ 3 , S ^ 8 , 
3,S,6,S,6,8,7,7,3,3,3,8,3,8,6,6, 
6,6,6,8,6.6 
1010 DATA 0 

1050 DATA q,4,q,B,ql,7,l,7,ql,7, 
1 ,7 , q , 9 , q , 7 , q 1,4 , q 1,0 , q , -1 , q , 0 , q 
i,2,q,2,ql,2,q,S,q,4,q,2,ql,-l,q 
1 , - 5 , q , - 5 , q , - 5 , q , - 3 , q * 2 , - 3 , q * 2,0 
. q *2,5 , q *2,4 , q *5.2 
1055 DATA 1000,1000 

3000 RESTORE 3100: FOR n=USR "a" 
TO USR "d"+ 7 

8010 READ V: POKE n,V: NEXT n 
•3020 FOR n =USR " i " TO USR " i " +7 
3030 READ V: POKE D,V: NEXT n 
3040 FOR n=USR "K" TO USR "»"+7 
8050 READ V: POKE n,V: NEXT n 
3060 RESTORE : RETURN 
3100 DATA 90, 126.126,35.36,125,1 
26,90.0,231,123,231.231.126.231, 


0.153.255.165.36.36.165.255.153, 
231,63,126.135.195.126.66,231 : 

rem 

3120 DATA 60.110,215.187.215,239 
,126,60: REM •« U» FITTI 

3130 DATA 43,4.8, 32 , 120,32,80,136 
, 198.48,48,32,1li . ltU ,43,30,80 : 
REM 


314 0 DAT A 17,136.30.41. Ili ,11,57 
, 136 : REM 


9000 SAUÈ "collisione" LINE 1 


non perdete 
il nuovo numero di 


• GRANDE CONCORSO: 
IL MISTERO DI FATHOM 

• ESCLUSIVO: 

PARLA DAVID ORANE 

• ASTERIX 

È UN VIDEOGAME 

• ABBIAMO VISITATO IL 
VIDCOM MIJID ’83 
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SERVIZIO SOFTWARE 



P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati, I programmi, provati e garantiti, sono di immediato utilizzo. 



P.S. n° 

Programma 

Sistema 

3 

La carta del cielo 
Collisione 

Apple li 

3 

Backgammon 

TRS-80 Mod. 1 

2 

Editor/Assembler 
in BASIC 

CBM 3032 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

4 

Gioco del calcio 

CBM 3032 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CMB 3032 

14 

Tool-Kit 

C 64 


Prezzo 

Codice 

Supporto 

30.000 

1 

Disco 

25.000 

2 

Disco 

40.000 

3 

Disco 

40.000 

4 

Disco 

25.000 

5 

Disco 

30,000 

6 

Disco 

25.000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 


Per richieder* I programmi In contrassegno, pagando direttamente al postino la cifra Indicata, Inviar* Il seguente tagliando 

Spedire In busta chiusa a Gruppo Editoriale Jackson - Via Roselllnl, 12 - 20124 Milano 

- 

GRUPPO EDITORIALE JACKSON 


Inviatemi i seguenti nastri e/o dischi con i programmi 


pubblicati su P.S. 


Cod. 1 1 1 1 1 1 1 

a L. 

Cod. 1 1 1 1 1 1 1 

a L. 

cod. unni 

a L. 

cod. L.I 1.1 1_L 1 

a L. 


Cognome 
Nome .... 
Indirizzo 

CAP. 

Città 


Spese postali (contributo Asso) L. 2.000 

TOTALE L. 


che pagherò al postino alla consegna del pacco 


Firma 













































Apple 


Vendo interfaccia IEEE-488 per Commodore 64 
usata pochissimo a L. 150.000trattabili. FlavioStella 
- Via Grandi, 10 - 20060 Cassina De' Pecchi (Ml>- 
Tel. 02/9521017 (ore serali). 


Vendo “Language card” originale (16 K RAM + Inte- 
ger Basic) per Apple Ile compatibili a L. 155.000, 
prezzo di listino L. 352.000 + IVA. Regalo un pro¬ 
gramma a scelta. Tiziano Settimi - Via XXIV Maggio, 
30 - 20010 Canegrate (MI) - Tel. 0331/400303. 


Vendo per Apple il famoso "The last one" con ma¬ 
nuale in italiano a L 250.000. Sistema operativo 
Pascal a L. 200.000. Sistema gestionale e magazzi¬ 
no in italiano con manuali a L. 800.000 e centinaia di 
altri programmi. Mauro Marcon - Via Posati, 10 - 
31010 Asolo (TV) - Tel. 0423/55395 (ore pasti). 


Vendo/cambio programmi Apple per tutti i gusti. 
Rivolgersi a Franco Vittor - Via Grabizio, 35 - 34170 
Gorizia - Tel. 0481/81254. 


Cambio di programmi per Apple specialmente gio¬ 
chi in linguaggio macchina. Attendo vostre liste. 
Scambio solo su dischetto. Enrico Sturaro - C.so 
Casale. 416/6 - 10132 Torino - Tel. 011/898756. 


Cambio programmi Apple II e Ile. Cesare Giardini - 
Via Castellana, 39 - 27029 Vigevano (PV) - Tel. 
0381/21405. 


Vendo Software per Apple II e Spectrum. Vasto as¬ 
sortimento, più di 250 programmi. Prezzi eccezio¬ 
nali (L 7.000 Spectrum 48 K). Sconti a chi decide di 
comprare più programmi. Roberto Dal Tio - Via Pia¬ 
nale - 31020 S. Maria Di Feletto (TV) - Tel. 
0438/784050. 


Cambio/Vendo per Apple programmi di ingegneria 
e/o utility. Scrivere o telefonare a: Pietro Petrocchi - 
Via G. Perlicari, 5 - 61035 Marotta (PS) - Tel. 
0721/96434. 


Vendo per Apple II scheda espansione microframe 
28 K, compatibile Ramex, con software simulatore di 
disco Superdos a L. 500.000. Telefonare ore serali. 
Silvio Valentini - Via G. Malaspina, 9-35100 Padova 
- Tel. 049/691475. 


Cerco per Apple Ile: Apple writer Ile - Quick file - 
PFS Ile con manuali. Ezio Martelletto - Via G. Mame¬ 
li, 24 - 36100 Vicenza. 


Vendo “The last one” versione Apple II completo di 
manuali in italiano a L. 300.000. Achille Betti - Via 
Del Brennero, 109 - 55100 Lucca - Tel. 
0583/953411 (ore pasti). 


Vendo per Apple II: “Language card" originale (16 K 
RAM + linguaggi) a L. 155.000. Prezzo di listino L. 
352.000 + IVA e scheda “EPROM programmer" con 
disco originale a L. 185.000. Tiziano Settimi - Via 
XXIV Maggio, 30 - 20010 Canegrate (MI) - Tel. 
0331/400303. 


Vendo programmi per Apple II su disco e su casset¬ 
ta. Filippo Salomone - Via P. Giuliani, 5 - 21047 
Saronno - Tel. 02/9625998. 


Cerco per Apple II, o altri, informazioni per utilizza¬ 
zione musicale, soprattutto, frequenze, toni, ecc. 
Rimborso spese postali. Stefano Malagodi, Casella 
Postale - 44034 Copparo (FE) - Tel. 0532/860196. 


Vendo per Apple II "Supertoto 1.0”, superprogram- 
ma totocalcio inedito, 3 diverse opzioni di selezioni 
incrociate (N° segni 1X2: consecutivi; corr. errori), 
con output N° colonne utili, sviluppo su monitor o 
stampante. L. 70.000 con manuale. Rossi Roberto - 
Via Lario, 26 - 20159 Milano - Tel. 02/6070236. 


Scambio/Vendo programmi per Apple II: grafica, 
compilatori, business, ma in particolare giochi e 
copiatori. Scrivere o telefonare a: Filippo Buelli - Via 
Sacconi, 4 - 20052 Monza (MI) - Tel. 039/364922. 


Cambio “The last one" (con manuale) versione per 
Apple ll-lle, con scheda 80 colonne sempre per 
Apple II. Tiziano Settimi - Via XXIV Maggio. 30 - 
20010 Canegrale (MI) Tel. 0331/400303. 


Atari 


Cerco possessori Atari 400/800 per acquisto/ 
scambio/vendita di programmi originali su disco e 
cassetta. Luigi Servolini - Via La Spezia, 81 - 00182 
Roma - Tel. 06/7581219 - Tel. 384488 


Vendo Atari VCS 2600 con relativi comandi e tras¬ 
formatore con sette cassette: Brekout, Defender, 
Combat, Air sea battle, Street racers, Maze craze, 
Asteroids con relativo impacco. Valore commercia¬ 
le L. 750.000, vendo il tutto a L. 500.000. 

Mauro Rorato - Via dei Tigli. 2/A - 20090 Rodano 
1000 pini (MI) - Tel. 9588000. 


Vendo Atari 400 modello americano + alimentatore 
+ cartuccia Basic + molti fantastici programmi su 
nastro. Per informazioni telefonare o scrivere a: 
Paolo Marcato - Via Cesare Battisti, 3 - 35027 No- 
venta Padovana (Padova) - Tel. 049/502475. 


Compro i n° 1-3-4-5-6-8-9-11-12-13-14 di Bile n° 
1 -2-4-11 -25 di M&P. Telefonare o scrivere a: Carlo 
Cocciazucca - Via Montesecco. 15 - 65010 Spoltore 
(PE) - Tel. 085/207466 (ore pasti). 


Vendo vera occasione, videogame Atari perfetta¬ 
mente funzionante con cassette (Soccer, Space in- 
vaders, Combat) e 2 coppie di pulsanti a L. 250.000. 
Fabrizio Ceccarelli - Via Empoli, 131 - 47025 - Ce¬ 
sena (FO) - Tel. 0541/331656. 


Acquisto/scambio/vendo programmi per computer 
Atari 400-800 su cassetta e disco. Luigi Servolini - 
Via La Spezia, 81, 00182 Roma - Tel. 06/7581219 
384488. 


Commodore 


Scambio/compro programmi per CBM-64 Commo¬ 
dore. Gianluigi Peduto - Via Malgrado - 40125 Bolo¬ 
gna. 


Svendo per avvenuto passaggio a sistema superio¬ 
re 210 programmi per VIC-20. Utility, matem.. giochi 
Ira cui molti in L.M. (Bonzo, Alien, Boss). Svendo a L 
25.000 comprese spese di spedizione e nastri ma¬ 
gnetici. Marco Pierbattisti - Via R. Donatelli, 5 - 
05100 Terni (TR) - Tel. 0744/418277. 


Commodore 64 cerco utenti per scambio program¬ 
mi e formazione gruppo per acquisto programmi in 
comune. Rispondo a tutti. Comunicare anche reca¬ 
pito telefonico. Gianpiero Piacentini - Via G. Mameli, 
115 - 00040 S. Maria Mole (Roma) - Tel. 
06/9351150. 


Cambio software per VIC 20 da 6-8 K, anche non 
espanso. Diego Braganti - Via C. Ravizza. 40 - 20149 
Milano - Tel. 02/4989786 


Per VIC-20 cerco 8 K ROM giochi e utility in ottimo 
stato, software gestionale che richiede il disco. Inol¬ 
tre ho 320 prog. da scambiare se inviate vostre liste: 
invio catalogo di vendita per L. 1,000 (circa 20 pagi¬ 
ne). Giorgio Ferrarlo - Via Adua, 1 - 21052 Busto 
Arsizio (VA). 


Cerco buon prezzo registratore a cassette Commo¬ 
dore CZN per il mio C64. Giorgio Maselli Campagna 
- Via Macchie, 31/8 - 70057 Palese (BA) - Tel. 
320400. 


Vendo a ottimi prezzi programmi per VIC-20 di ogni 
genere. Per richiedere la lista spedire indirizzo più L. 
500 in francobolli a: Fernando Benini - Via E. Pazzi, 
16 - 48100 Ravenna. 


Vendo VIC-20 completo alimentatore, interfaccia, 
video, espansione 16 K, joystick, unità cassette C2N 
+ manuale + VIC revealed a L. 700.000. Massimilia¬ 
no Bottacini - Via Roma, 48 -15010 Rivada Bormida 
(AL) - Tel. 0144/72116. 


Vendo per VIC-20 interfaccia VCX-1001 (adatta an¬ 
che a Pet). Scambio inoltre software per VIC. Inviare 
lista o richieste, rispondo a tutti. Alessandro Brucia¬ 
momi - Via Roma, 72 - 27047 S. Maria della Versa 
(PV) - Tel. 0385/79052 


Vendo per CBM-64 interessantissimi programmi. 
Molti programmi tecnici (es.: revisione prezzi, cadu¬ 
te di tensione), utility e giochi. Assicuro risposta a 
tutti. Chiedere la lista allegando L. 300 in francobolli. 
Claudio Tioni - Via Cividina, 59 - 33035 Martignacco 
(UD) - Tel. 0432/677627. 


Vendo listati per VIC: Star war, Pac-man, Tiro al 
drago, Labirinto, Donkey kong, Frogger, basket, VIC 
dietologo, Matematica, Orologio, Bach, Bioritmi, VIC 
medico, Battaglia navale. Prezzo L. 2.500 cad. Mas¬ 
simo Gusso - Via Felissent, 32 - 31020 Lancenigo 
(TV) - Tel. 62969. 


Vendo/scambio software (specialmente giochi) per 
Commodore 64 programmi GB/USA. Inviare lista 
programmi (rispondo a tutti). Roberto Delbello - Via 
Giarizzole, 7 - 34100 Trieste. 


Vendo VIC Expansion Arfon con 7 slot + coperchio 
ancora imballato a L. 300.000: nuovo L. 375.000 e 
stampante VIC 1525 30 C/S 80 colonne nuova + 
1800 fogli carta a L. 650.000 anziché L. 785.000. 
Scrivere per accordi. Walter Della Spora - Via P 
Savi, 218 - 55049 Viareggio 


Vendo Software civile C-64 Spectrum, manuali, su- 
pertestato, telai grigliati, verifiche, fond. zona sismi¬ 
ca, 373, ecc. Giovanni Gaviani - Via Finelli, 3 - 40100 
Bologna - Tel. 051/230126. 


Vendo CBM 3032 + 4040 Epson MX80FT + 90 
dischi con centinaia di progr. gestionali mat, ing. 
con manuali + tantissimo altro materiale. Il tutto è 
nuovissimo e lo offro al migliore offerente anche a 
rate dilazionate. Sergio Sonagere - Via Kennedi, 35 
- 33038 S. Daniele Del Fr. (UD) - Tel. 0432/955666 
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Scambio programmi per VIC-20; inviate cassette o 
listati. Massima serietà. Sono pronto a ricambiare le 
vostre lettere. Marco Ceruti - Via Frassinago, 59 - 
40132 Bologna - Tel. 585389. 


Cambio/vendo programmi per il VIC-20. Ne possie¬ 
do circa 400. Richiedere il catalogo con la delucida¬ 
zione di ogni programma inviando L. 1.000 in fran¬ 
cobolli. Enrico Sturaro - C.so Casale, 416/16 - 
10132 Torino - Tel. 011/898756. 


Vendo computer Commodore CBM 4032, registra¬ 
tore C2N, manuale d'uso, cassette con programmi. Il 
tutto a L. 1.100.000 trattabili. Fabrizio Corsello - C.so 
Turati, 82 - 10134 Torino - Tel. 011 /599184, 


Vendo VIC-20 + registratore C2N + cartuccia scac¬ 
chi + 3 manuali + 5 programmi a sole L 400.000 
trattabili. Valentino Mosca - Via G. Siila, 8 - 00189 
Roma - Tel. 3765394 (ore pasti). 


Scrivi o telefona: potremmo sviluppare o cambiare 
software per il nostro Commodore 64! Insieme, pos¬ 
siamo fare di piu!. Ivan Zoratti - Via Cilea, 86-20151 
Milano - Tel. 02/3533359. 


Cerco qualsiasi tipo di programma per CBM-64. 
Inviare liste con eventuali prezzi. Sono disposto an¬ 
che a scambiare miei eventuali programmi. Scrivere 
a: Matteo Ficco - Via S. Giovanni da Verdara, 87 - 
35100 Padova - Tel. 049/653482. 


Vendo VIC-20 + Super-expander 3 K + 8 K RAM + 
programmerà AID + registratore C2N + 3 manuali, 
per passaggio sistema superiore. Luca Lodoletti - 
Via Solari, 2 - 20144 Milano - Tel. 02/482891 (ore 
pomeridiane). 


Svendo programmi, linguaggi, compilatori e utilità 
per computer Commodore serie 3000. 4000, 8000 
causa passaggio altro sistema. Richiedere elenco 
dettagliato inviando L. 1.000 a: Antonio Marocco - 
Via Dell'ingegno, 35 - 34073 Grado (GO). 


Cambio/compro/vendo programmi per VIC-20. 
Massima serietà. Scrivere a: Francesco De Colle - 
P.le Capolinaro, 11 - 00053 Civitavecchia (Roma) - 
Tel. 0766/34171. 


Vendo VIC-20 + registratore In perfette condizioni a 
L 320.000. Vendo inoltre, anche separatamente, vari 
programmi di alta qualità (scacchi, giochi spaziali, 
ecc.) a metà prezzo. Giorgio Pietrocola - Via Cano¬ 
va. 25 - 00159 Roma - Tel. 06/4388795. 


Per il VIC-20 vendo programmi in linguaggio mac¬ 
china a favolosi prezzi: Abductor, Amok, Blitz, Guar¬ 
dian e molti altri. So duplicare le cartridge in pro¬ 
grammi da 16 K. Roberto Silva - Via L. Cagnola, 
20154 Milano - Tel. 02/317228. 


Scambio oltre 150 programmi (videogiochi, gestio¬ 
nali, utility) per Commodore-64. Luciano Cuneo - 
Via E. Lepido, 46 - 00175 Roma - Tel. 06/7491542. 


Vendo/scambio "II. libro del Commodore VIC-20”, 
“Guida al personal VIC-20", cassetta originale in¬ 
glese (7 giochi) per VIC non esp. Prezzi da concor¬ 
dare. Carlo Avino - Via A. Baccarinl, 46 - 00179 
Roma - Tel. 06/7885291 (ore 18-21,30). 


Vendo Commodore 64 con numerosi programmi e 
manuale in italiano: il tutto garantito nuovo a L. 
700.000. Tratto con provincie di Genova, Savona. La 
Spezia, Massa-Carrara. Roberto Garibaldi - Via Ri¬ 
no Mandoli - 16139 Genova - Tel. 010/892853 (ore 
pasti). 


Vendo VIC-64 nuovo (causa doppio regalo) a L 
480.000. Vendo inoltre VIC-20 a L. 190.000 (ottimo 
stato), 16 Kbyte L. 110.000, tool-kit (prog. AID) L 
25.000, linguaggio macchina (VIC-MON) L. 25.000, 
VIC-REL L. 65.000. Software gratuito. Aldo Stracchi 
- Vie Europa, 170 - 39100 Bolzano (Tel. 
0471/931448. 


Vendo per VIC-20 “Agenda", su cassetta, per crea¬ 
zione archivio indirizzi, o altri tipi definiti dall'utente. 
Minima espansione 3 K - min. 60 indirizzi: max ca. 
2000 con 32 K. Il numero dipende dall'archivio. 
Prezzo L. 10.000 + spese postali. Vincenzo Carrone 
- Via Pascoli, 67 - Campobasso - Tel. 0874/91995. 


Vendo/cambio software per VIC-20. Prezzi incredi¬ 
bili!! Bonzo, Sub Chase, Frogger, Crazy Kong, Aste- 
roids sono solo alcuni esempi. Richiedi la lista alle¬ 
gando L 400 per spese di spedizione a: Gregorio 
Lena - V.le Silvani, 3/2 - 40122 Bologna - Tel. 
551178. 


Cambio programmi in cassetta per Commodore 64. 
Inviare liste. Scrivere a: Paolo Di Mauro - Via Berbe¬ 
ri. 1 - 20146 Milano - Tel. 02/471803. 


Per VIC-20 vendo cassetta con 20 fantastici giochi 
di animazione in tempo reale, a colori e sonori origi¬ 
nali inglesi con istruzioni in italiano, funzionanti con 
memoria base, tutto a L. 30.000. Claudio Giovanelli - 
Via Ripamonti, 194 -20141 Milano - Tel.02/536926. 


Cambio/vendo programmi per Commodore 64, gio¬ 
chi, grafica, utilità e di altro tipo. Eliseo Bergamo - 
Via Rocche, 7 - 36077 Altavilla (VC) - Tel. 980840 
(ore serali). 


Vendo/cambio ottimi programmi LM e Basic per 
VIC-20. Anche ottimi inediti e utility. Scrivete per 
ricevere la lista gratuita. Federico Gurrierl - Via U. 
Foscolo, 14 - 50124 Firenze - Tel. 055/700635. 


VIC-20 + Interfaccia registratore + oltre 30 pro¬ 
grammi + 2 libri sul VIC-20 a sole L. 300.000. Espan¬ 
sione 16 K a L. 160.000: tutto usato pochissimo a L. 
450.000. Nicola De Vita - Via Val D'Ala, 20 - 00141 
Roma - Tel. 8102121. 


Svendo per CBM-64 causa rottura irreparabile, 
completa raccolta di tutti gli articoli e programmi 
apparsi finora in Italia; manuali d'uso perfettamente 
tradotti ed interfaccia per registratore. Fabrizio Se¬ 
stetti - Via G. Verdi - 24040 Canonica d'Adda (BG) - 
Tel. 035/883107 (ore ufficio). 


Vendo molti programmi a prezzi modici; sei un VIC- 
utente alle prime armi? Rivolgiti a me: dispongo di 
molti programmi dimostrativi per capire concetti 
fondamentali del BASIC del VIC-20 a basso prezzo e 
offro lezioni di BASIC per corrispondenza. Fabio 
Siani - Via Buonarroti, 19 - 20149 Milano - Tel. 
02/4694089. 


Sinclair 


ZX-81 cerco possessori per scambio programmi su 
listato o cassetta per 1 K e 16 K RAM. Scrivere per 
accordi spedendo eventualmente una lista a: Gio¬ 
vanni Pietrolonardo - Via G. Pelosi, 41 - 00143 Ro¬ 
ma. 


Vendo software originale importato direttamente 
dalla Gran Bretagna per Computer Spectrum. Alle¬ 
gare francobollo per risposta. Antonio mauriello - 
C.so Secondigliano, 209 - 80144 Napoli. 


Vendo per Computer ZX-81 fantastica cassetta C- 
60 contenente 40 programmi max. da 1 K, 20-Game, 
20-Utilitye a L. 5.000 più L. 2.000 spese postali. Per 
ordinarla scrivere o telefonare a: Pierangelo Patrizi - 
Via del Mare. 47 - 73100 Lecce - Tel. 0832/52891 
(ore pasti). 


Cerco possessori ZX Spectrum per scambio soft¬ 
ware alla pari e notizie sullo stesso. Scrivere acclu¬ 
dendo propria lista programmi e bollo per la rispo¬ 
sta. Luigi Ballestin - Via Martiri della Libertà, 367/11 
- 18038 Sanremo (IM). 


Vendo Spectrum 48 K completo + manuale in italia¬ 
no tutto in ottimo stata con imballaggio originale (5 
mesi di vita) a L 430.000. Giuseppe Scavo - Via G. 
Ferraris, 9 - 28100 Novara - Tel. 0321 /454679 (ore 
pasti). 


Softmatematico per Spectrum o ZX-81. cassetta con 
8 programmi: integrali, equazioni differenziali, siste¬ 
mi lineari ecc. solo L. 15.000. Scrivere o telefonare a: 
Paolo Biagioni - Via Lungo L'Affrico, 84 - 50137 
Firenze - Tel. 055/664476. 


ZX Spectrum 16/48 Kbyte vendo cassetta con due 
giochi (Labirinto 3D - Poker) Basic autocompilati 
L15.000. Listati L. 5.000 cad. Spedizione contrasse¬ 
gno. Sebastiano Trusso - Via Roma, 291/A - 98051 
Barcellona P.G. (ME) - Tel. 0190/9723167. 


Vendo/cambio programmi Spectrum a prezzi strac¬ 
ciati. Cambio anche i programmi con altri"possesso¬ 
ri di Spectrum per aumentare il numero di program¬ 
mi. Telefonare o inviare elenco a: Alessandro Car¬ 
bonara - Via Faenza, 159 - Triggiano (BA) - Tel. 
080/681928. 


Vendo SinclairZX-81 + espansione 16 K, alimenta¬ 
tore, cavetti e manuale inglese e italiano. L. 200.000 
completo. Regalo all'acquirente un libro con pro¬ 
grammi + 1 cassetta. Alessandro Pelati - Via A. 
Ciseri, 32 - 50142 Firenze - Tel. 055/780642. 


Vendo ZX-81 causa passaggio sistema superiore + 
espansione 16 K + tastiera speciale + 5 cassette 
programmi 16 K + libri e manuali. Valore totale L. 
450.000 vendo L. 350.000 trattabili o scambio con 
ZX Spectrum 48 o 16 K. Fabrizio Vita - V.le Monza, 
26 - 20127 Milano - Tel. 02/2850136. 


Cerco possessori di ZX Spectrum, preferibilmente 
zona Rovigo, per scambio-compra-vendita softwa¬ 
re. Scrivere o telefonare: Gabriele Formaggio - Via 
Dante Gallani, 23/a - 45100 Rovigo - Tel. 35726. 


Scambio programmi per ZX-81 16 K in cassetta o 
listato; inoltre scambio alimentatore ZX 0,7 Amps 
con inverse video. Infine scambio 5 rotoli di carta 
termica Sinclair con tastiera applicabile su ZX. Pao¬ 
lo Ballocci - Via S. Gottardo, 75 - 20052 Monza (MI) - 
Tel. 039/367709. 


Vendo per Sinclair ZX Spectrum set di programmi 
finanziari, statistici e scientifici completo di esau¬ 
riente guida aN'utilizzo ed allegati esplicativi. Prezzo 
incredibilmente basso. Per informazioni scrivere a: 
Giosuè Baiano - Via C. Battisti, 11 tr. priv. - 80059 - 
Torre del Greco (NA). 


Vendo eccezionali programmi su cassetta per ZX 
Spectrum nella versione 16 o 48 K a L. 10.000. Per 
informazioni rivolgersi a: Michele Stagno - Via C. 
Pompea, 285 - 98100 Messina - Tel. 45018. 
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Vendo/cambio software acquistato in GB. Per 
Spectrum 48 K: Football manager. Warlord, Jackpot, 
Battle ot Britains, PSST. Flight simulation. Tratto con 
zona Genova. 1 cassetta L 15.000; 6 L. 75.000. Gior¬ 
gio Vanni - Via Gaulli, 7 - 16143 Genova - Tel. 
010/512248 (ore serali). 


Vendo Game program oroginali inglesi per ZX 
Spectrum a prezzi molto buoni. Paolo Fiorino - Via 
Giambellino, 102 - 20146 Milano - Tel.02/4238712. 


Per ZX-Spectrum cerco programma "ZX slow loa- 
der". Chi lo possedesse mi spedisca pure la sua lista 
di programmi per eventuali altri scambi o acquisti. 
Potano Alberto - Via D. Chiesa, 14 - 33038 S. Daniele 
<UD). 


Vendo ZX Spectrum 48 K nuovissimo a L. 350.000. 
Giancarlo Mariani - V ie Brianza, 72 - 20036 Meda 
(MI) - Tel. 0362/72565 (ore pasti). 


Vendo/scambio software per ZX Spectrum 16 / 48 K. 
Oltre 200 progammi disponibili! Inviare catalogo. 
Bruno Rota - Via Passo di Brizio. 6 - 20148 Milano - 
Tel. 02/4082437. 


Vendo (eventualmente scambio) i migliori program¬ 
mi per ZX Spectrum a prezzi incredibili: Chequered 
(lag, Hobbit, Pascal, compilatore Basic e altri 48 K a 
L. 10.000: Jet Pac e altri 16 K a L. 5.000. Spedire L. 
400 in francobolli a: Francesco Zanichelli - Via Tra¬ 
versatolo, 192 - 43030 Porporano (PR) - Tel. 
0521/641165. 


Cedo software perZX Spectrum 16 e 48 K. Ho anche 
listati per altri computer. Telefonare oppure scrivere 
a: Gianmauro Dell'Olio - Via Marchese di Montrone, 
60 - 70122 Bari - Tel. 080/219840. 


Vendo per passaggio sistema superiore Sinclair ZX- 
81 + espansione 16 K RAM + alimentatore + ma¬ 
nuale italiano + libro "66 programmi per ZX-81" + 
cassetta database il tutto agosto '83 a L. 220.000 
trattabili. Walter Bianchi - Via Casoni, 84 - 31021 
Mogliano Veneto (TV) - Tel. 041/454735. 


Finalmente software per Spectrum su cassetta in 
italiano. Programmi originali o comunque tradotti e 
comprensibili. Oltre 80 titoli a L 4.000 e L. 5.000 
rispettivamente per 16 o 48 K. Richiedere lista. Gian¬ 
franco Posterli - Via L. Ariosto, 123 - 20099 Sesto S. 
Giovanni (MI) - Tel. 02/2480163. 


Spectrum scambio/vendo programmi gioco e/o 
utilità; rapida risposta; elenco gratuito. Scrivere o 
telefonare a: Antonio Sfriso - Via Salomone, 7 - 
30173 Mestre (VE) - Tel. 041/972887(ore cena). 


Vendo computer ZX-81 Sinclair usato pochissimo, 
ancora in garanzia. Insieme al computer riceverete 
anche il libro istruzioni in inglese e italiano più l'ali¬ 
mentatore. Tutto a L. 90.000. Mario Porchera - Via 
Lambro, 6 - 20089 Rozzano (MI) - Tel. 8257086. 


Vendo Sinclair ZX-81 completo di alimentatore e 
cavetti, espansione di memoria 16 K RAM, manuale 
in italiano e numerosi giochi su cassetta. Tutto a L. 
200.000 trattabili. Vendo anche separatamente. Ro¬ 
berto Lopez - Via C. Troya, 2 - 20100 Milano - Tel 
02/425908. 


Vendo ZX80 + 8 K ROM + 16 K RAM + slow + 
registratore (il tutto in contenitore) + tastiera esterna 
+ software su nastro + manuali L 300.000 intratta¬ 
bili. Carlo Cecchi - Via Monferrato, 15 - 20144 Mila¬ 
no - Tel. 02/4959020. 


Offro ZX81 16 K + alimentatore, manuale e cavetti + 
vasto software package, tra cui: scramble, Meteori- 
tes, MA20GS - Breakout a L. 300,000 trattabili. Cesa¬ 
re Giavani - Via Troubetzkoy. 82 - 28058 Verbania- 
Suna (NO) - Tel. 0323/504182 (ore pasti). 


Texas 


Cerco/scambio programmi per il TI 99/4A (solo su 
cassetta). Romano Perico - Via Gerani, 2 - 24025 
Cazzaniga (BG) - Tel. 035/711993. 


Cerco piccoli programmi in Assembler TI-99/4A 
per sopperire alla poca chiarezza del manuale. Ro¬ 
sario Velardi - Via Mare di Bering, 40 - 00122 Ostia 
Udo (Roma) - Tel. 5684912. 


Vendo per TI-99/4A programma, scritto inTI-Basic, 
grafico, a colori, sonoro, della “Battaglia navale". 
Costo listing L. 20.000: prezzo stracciatissimo. Spe¬ 
dizione contrassegno. Valentino Ricci - P.zza Spiri¬ 
to Santo, 32 - 65100 Pescara. 


Vendo TI-99 + cavo registrazione + manuali +ex- 
tended Basic + teach your self XBASIC + thè attack 
+ cassette di giochi e programmi di varia utilità. Il 
tutto a L. 500.000 trattabili. Michele Cei - Via Colom¬ 
bo, 7 - 27100 Pavia - Tel. 0382/27797. 


Vendo TI-99/4A completo L. 310.000, extended Ba¬ 
sic con manuale L. 180.000, mini memoria + casset¬ 
ta Assembler L. 210.000, manuale Assembler 450 
pagine L 20.000, coppia joystick L. 40.000. Con 
garanzie. Alessandro Pasciuto - Via Nervesa Della 
Battaglia, 7 - 80124 Napoli - Tel 081/618624. 


Vendo TI-99/4A + TI invaders + cavo per due regi¬ 
stratori + manuali italiani. Garanzie da spedire. L 
400.000 trattabili. Regalo inoltre un favoloso pro¬ 
gramma (in vendita a L. 15.000 separatamente) di 
analisi del campionato di calcio. Schede squadre. 
29 classifiche tra le quali una basata su 20 fattori. 
Per sistemisti e appassionati. Davide Rolando - Via 
B. Ottaviano. 6/6 - 17100 Savona - Tel. 019/26949. 


Vendo per TI-99/4A cassetta “Adventure" dal titolo 
il "Conte" necessario modulo "Adventure”. Dispo¬ 
sto successivamente a fornire indicazioni per il fun¬ 
zionamento e la risoluzione del gioco. Stato discre¬ 
to. L. 30.000. Fabio Ravanelli - V ie Kennedy, 105 - 
28100 Novara - Tel. 0321/451953. 


Vendo TI-99/4A + registratore della Texas + cavet¬ 
to di collegamento a L. 400.000. Tutto in garanzia. 
Giovanni Amico - Via Houel, 19 - 90138 Palermo - 
Tel. 335226. 


Vendo cassette per TI-99: Wumpus, Videogames 1, 
Parsec, Pirate adventure + modulo 555, Il conte, Il 
castello del woodoo. L. 30.000 cad. (la metà del 
prezzo reale!). In blocco L 150.000. Fabio Ravanelli 
- Vie Kennedy, 105 - 28100 Novara - Tel. 
0321/451953. 


Cambio/vendo programmi per TI-99, anche origi¬ 
nali Texas. Cerco inoltre utenti di questo computer 
di Firenze per scambio idee, ecc. Alberto Bemporad 
- Via L. Settembrini, 20 - 50133 Firenze - Tel. 
055/470620. 


Vendo computer MPFII, 164 RAM, Applesofit com¬ 
patibile, come nuovo + tastiera esterna + alimenta¬ 
tore + interfacce recorder e TV + manuali Basic e 
LM + molti programmi, listati, ecc. Prezzo eccezio¬ 
nale. Umberto Torrini - Via Bolognese, 57 - 50139 
Firenze - Tel. 055/474836-265033. 


Vendo Micro Z80 N.E. LX 380, 381, 382, 383, 384, 
385, 386, 387, 388; tutto funzionante con mobile 
contenitore, registratore, Basic 5,5 K, cassette pro¬ 
grammi e manuali di istruzione L. 600.000 (nuovo). 
Carlo Vincenzi - Via Resistenza. 26 - 41033 Concor¬ 
dia S/S Modena. 


Vendo HP-85 con 32 K RAM stampante 80 H- 132 
colonne mod. HP-82905A interfaccia HP-1 B ROM 
plotter/printer ROM matrix - advanced program- 
ming (valore di listino L. 9.640.000). Tutto per L. 
6.000.000 trattabili. Barbara Mereu - Via Alghero, 45 
- 09100 Cagliari - Tel. 070/652652. 


Vendo per Micro Z-80 NE - configurato con scheda 
grafica (LX529) e almeno 1 driver - dischetto 5” 
completamente riempito da 12 programmi nuovi di 
gioco e grafici. Il tutto a L. 20.000 + spese postali in 
contrassegno. Federico Venier - Via Venezia, 120 - 
33170 Pordenone - Tel. 0434/42500. 


Vendo EPROM con extendet-Basic per Acorn Atom 
da inserire nello zoccolo per le utilitie. Aggiungere 
21 istruzioni tra le quali: READ. DATA, RESTORE, 
INKEYS, PRINT AT, TAB. SCREEN, ecc. Massimo 
Magnani - Via Tibullo, 10 - 47044 Igea Marina (FO) - 
Tel. 0541 /630470. 


Vendo causa passaggio a sistema superiore HP-4 
ICV + stampante HP-82 143A + modulo elettronica 
+ manuali. Il tutto in buonissimo stato. Fabrizio La- 
vezzari - Via Resegone, 7 - 20051 Limbiate (Milano) 
- Tel. 02/9962845. 


Vendo per micro NE schede: LX392 (completo di 32 
K) a L. 80.000 - LX 385 a L. 80.000 - LX 382 (CPU) a L. 
100.000. Tutte collaudate e funzionanti. Tratto zona 
Treviso e provincia. Renato Severin - Via Casaria, 
23 - 31030 Biancade (TV). 


Attenzione chi possiede una programmabile o un 
calcolatore e risiede nel Molise (possibilmente 
Campobasso) è pregato di scrivermi per creazione - 
Centro scambio e promozione software Molise. Al¬ 
legare bollo. Vincenzo Carrone - Via Pascoli, 67 - 
86100 Campobasso - Tel. 0874/91995. 


Vendo personal computer Genie 1 16 K RAM -12 K 
ROM, registratore incorporato, completo di manuali 
tecnici, riviste, editor-assembler, livello 3 Basic e 
moltissimi programmi. Tutto in perfetto stato a L. 
850.000. Enrico Lago - C.so Belgio, 132 - 10153 
Torino - Tel. 011/8990260. 


PL/l-80, display manager, BT-80 compro/scambio 
con altri linguaggi e/o programmi per CP/M (Cobol, 
Fortran, Ingegneria, ecc.). Scrivere o telefonare a: 
Mario Guglielmetti - Via Milano, 19 - 38100 Trento - 
Tel. 913476. 


HP431C perfetta + modulo standard + modulo sta¬ 
tistica vendo a L. 300.000 purché entro dicembre 
'83. Valore commerciale L. 455.000 circa. Spedizio¬ 
ne contrassegno immediata. Francesco Lentini - 
Via Aschenez prolungam. 2/M - 89100 - Reggio 
Calabria - Tel. 0965/29257. 
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Esposizioni Intemazionali dell 5 Automazione 
...1982 Parigi “MESUCORA”... 1983 Dusseldorf “INTERKAMA” 

1984 MILANO - B.I.A.S. 


Solo il BIAS nel 1984 in Europa presenta l’Automazione e la Microelettronica 



Fiera di Milano 

29 novembre - 4 dicembre 1984 


E.I.O.M. Ente Italiano Organizzazione Mostre 
Segreterìa della Mostra 
Viale Premuda 2 
20129 Milano 

tei. (02) 796096/421/635 - telex 334022 CONSEL 


- Sistemi e Strumentazione per l’Automazione 
la regolazione ed il controllo dei processi 
Robotica, sensori e rilevatori 

- Apparecchiature e Strumentazione per 
laboratorio, collaudo e produzione 

- Componentistica, sottoassiemi periferiche edT unità 
di elaborazione 

- Micro, Personal Computer, Software e accessori 


in concomitanza con la 8 a RICH e MAC ’84 
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